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VACACIONES 


e acercan las vacactones de verano v las 
rioches esti vales se preven la rgas, cdU- 
das y fantasiosas. Los ordenadores se- 
nm el centra de atenddn de to das las uocldm- 
bulas miradas, convirtiendo los abunidos 
mitines/veladas en fiestas muhicotores de so- 
nidos, mime a y explosiones. 

Loco a poco, los joysticks ocupan sus 
puertosipimtos. el cansancio se va adue- 
fumdo de mtesiras munecas y los refiejos de- 
caen al paso del (tempo, Llega el final y las 
despedidas, regresando el silencio a la paz 
del ho gar, a la pantalfa del monitor. 

El ardenador, eompahero de desventuras 
aliemgenas, descansa de sus batallas galdcti- 
cas interest elates. Las luces se apagan y tut a 
nueva etapa comienza, mas mtimista, mas 
satisfaciorki y provechosa: lie gar al eorazon 
del m (crop races ado r, seducir a I programa re¬ 
side me en memoria, descubrir sus ittteriori- 


dades ... Eso es lo que podriamos llamar se¬ 
duce ion de un programa. 

La noche es tut huen estadio para conse- 
guir records , olimpicos o metitales («mens 
sana in corpore sano») t un eirciutn donde co¬ 
ne r contra reloj contra otros programadores, 
un -campus» de soledad y duelo entre la ma¬ 
il ulna y el hotnhrc. 

En esas haras, el BASIC se convierte en 
delator y el eddigo mdquina en enemigo. Las 
semenclas chocan contra los errores sintde- 
ticos y los desensambladores son paladines 
de causas aun pot defender. La India es ar- 
ducp cruel t salvaje,*., los pdrpados sucum- 
ben al sueno, la mettle obnubilada es presa 
de degas fantasias y lo que creiamos poder 
hacer se convierte en utopia... 

Una nueva manana clarea en el Horizonte 
y el RETURN del cansancio nos RESETEA 
hacia oira SUBRUTIN A: la del sue ho. 



4 INPUT 













AMPUA TU CURSO 
DE MECANOGRAFIA 


• 

PARA ADQUIRIR 

UN RITMO REGULAR 

■ 

(NCREMEMTQ DE LA VELDCIQAD 

y DE LA PRECISION 

■ 

UN CONSEJO IMPQRTANTE 


Esta vcz piiedes extender tu peiieia a 
las leclas de numeros > a todtui lux res- 
tames simbultis del tccladu. Hay, ade- 
inas, un programs dejuego s.[iio tc oju- 
darii a aumentor tudavia mas to raprdez 
to Is escrilura. 

Si lias trabajado ya con el instructor 
rnecanografico que publicamos en 
INPUT, estar&s familiarizado con to- 
das las tedas de letras y de punluaddn 
de las tics hileras infer in res del tc- 
clado, Pem aim no bus tocado las 
sicnipre am port antes (er Los lisiados 
de pmgramas) icelas numericas. ni lias 
aprendido edmo modi Hear las techs 
para obtener letras mayrisculas o mi- 
nusculas, asi como los si'mbolos adieio- 
nales y de punluacidn dispouibles. 

E 1 program a de esta seccidn te 
limes! ra edmo a nadir todo esto a tus 
c reden les habilidades mecynografi- 
eas. Ad q mas, hay un ejcrdcio que te 
permitini increment a r to vclocidad, tu 
seguridad y Iti rititio. Y ade maxes di¬ 
vert ido. 


ADICION DE LOS NUMEROS 

■ AI igoal l[ul l con el program a ante¬ 
rior la adidbn de la Mnea de niimeros 
del Led ado puede llevarse a cabo eon 
um a simple modi Lkacidn del program a 
original utilizado en Hus tecciones an¬ 
te rlores. Para ello, carga el ultimo 
program a y teclea estas tineas ad i do¬ 
nates. Algunas de ellas sustituyen it It- 
neas exist elites, mien Iras qtic otras 
van un me rad as de mode que queda- 
raut incluidas emre las que ya lieties. 

30 LET S$='1A2S3D4F5G6H 
7J8K9L0” 

210 FOR K=G TO 24 
230 LET R$=S$(K-5) 

320 LET RN = LNT {RND*19]+1 
330 PRINT AT 10, RN + 5l"*”: 
LET R$—SS(RN) 


350 PRINT AT 10.RN + 5;” 11 
440 LET RN = tNT £RND*19)+1 
530 PRINT AT 10,13;” 

PRINT AT 10,13;T$ 

540 FOR M=1 TO LEN T$; 

PRINT AT 9,11 + Mi" 

* i * 

610 FOR N— 1 TO 5; RESTORE: 
LET RN = I NT £RND*24)+1: 
FOR K-l TO RN; READ 
X$: NEXT K 

1010 PRINT AT 12«6iS| 

2-000 DATA "MC6809E", 
"VALOR”,"ULTIMO", 
"Z80A”, "RELAX”, ”6502”, 
"A37XZ” f ”1024”, 
"EXTENSO”, "JUNCO", 
"RETQRNAR”, "67VDG' r 
2010 DATA "SOLO”, 

"EXC1TAD0"V 1 74LS83", 
"VUELTA","VAPOR”, 

" 1934”, "30123”, 
"ENFADO”, "4MHZ'\ 
"WX101”, "64 lyiB”, "VIDEO” 

Al ejecutar cl programs, se tc pc- 
dira que selecdoncs uno de I os cinco 
niveles ya fain ilia res. T'stos son si mi- 
lares a I os de antes, con la adicitin de 
los caracleres micvos. En los niveles 
inferiores, se te pedin'i que mezdes co¬ 
rrects me nte numeros. y algunas veccs 
signos de punluacibn. con Las teclas 
c si stent es. Esto te result a ra difid L gu- 
rantizando que no puedas e< m cen¬ 
tra rte simp]entente en Los numeros. 

A eonti Quadbit. en Los niveles su¬ 
per Lores. sc tc pedira que teclees una 
mezcla de palabras. grupos de mime- 
ros y grupos for made s par una rn ezcla 
de Letras y numeros. Veras las pula- 
bras y los numeros selccdonados en 
I its inst rued ones DATA prdximas al 
final del programa. Si Lo deseas, pue- 
des modificarks al cabo de eicrto 
ttempo, ya que de lo conirario Llega- 
rfas a familkrizarie demasiado con lo 


que el ordenador va a pedirlc que Ita- 
gas y no se t rat aria ya de un auicnitco 
desaffo. Pero rceuerda mantener cl 
misino tnunem de palabras Eo de gru- 
pos de carucieres) o el ondenador no 
podril leer la caniidad correct a de da- 
tos. 

Cuando do mines Las ted as de nu* 
meros. hiibra llegado el memento de 
pasar a la siguiente leecibn, Esia te 
proporcionara la praciica necesaria 
para obtener los carucieres para Los 
euales sc debe ptilsar la leela SHU"I . 


LA TECLA SHIFT 


Estn vez. Las Itncas adicionalcs de 



programa tc da ran ]a posibilidad de 
ulilizar la teda SI IIET. 

Como antes. 


dichas I Eneas sustituirar it Las cxisten 
tes o se induir^n entre cl Las: 


20 POKE 23658,0: LET ER-0 
30 LET S$-”Alas@sD#dF$fG 
%9H&hJjK(kLU0” 

210 FOR K=2 TO 29 


INPUT 5 






































230 LET R$ = S$(K-1) 

320 LET RN-INT (RND*2S)-bl 
330 PRINT AT 10,RN+ 1;"*”; 

LET R$=S$(RN) 

350 PRINT AT 10,RN + lf " 
440 LET RN=INT [RND*28)+1 
610 FOR N = 1 TO 4 : RESTORE; 
LET R N=I NT (RND*24)+1; 
FOR K = 1 TO RN; READ 
XS; NEXT K 

1010 PRINT AT I2,2;S$ 

2000 DATA "$235.50", 

"PRINT#”, "&H1200", 
”23.5%", "Co nta bill dad", 
"LONDRES", ,J 25 P 768’\ 
"15@\12"* "(bajo)". 

,r H + 9= lD" t "**tistar**" p 
"Fuegg!!" 

2010 DATA "Extra”, 

"Long-Play", "Sera", 
"4*4= 16" t "Porque?", 
"6:10 pm", ss 56'492", 

"\ 15.40". "Disco", 
"ATENCI0N”, "100/4” 


las teclas sc pul sun junto con lii tccla 
SHIFT, simbolos de puniuEieitfn. msj- 
tematicos, etc. Para hacertela modi¬ 
fied van mezdados eon las letras ori¬ 
ginal es do cada tccla, lo que signifies 
que tienes que liaccr ir y venir los dc- 
dos cad a vez. 

En los niveles super lores ii cries 
ahora una list it de palabras y de gnipos 
de pa la bras a I tgual que antes, excepto 
que esla vez encon Iranis mayusculns y 
siinbolos mezclados con minusculas, 
Tu ortienador oomprobari tu vdoci- 
dad v tu precision en dichas palabras 
y gjupos de caracteres. Si ves quo lo 
liaces demasuido bien cm estos ejem- 
plos concretos, puedes en cualquier 
niomento montarle Lii mismo un 
nuevo con junto de da los. Sin cm* 
bargo + debes record a r que hav que 
conservar igual el numcro total de dit¬ 
tos . 

Cuando puedas cncontrar tod os 
los caracteres del tecJado* sin mirar 
y sin vacilar cn absolute, estards en 
condiciones dc pasar a Ja section si- 
gtiieme. 


Uno de los me jo res modes dc lograrlu 
cons isle en teclear sigutendo los liem- 
pos de un melrbnomo. o algo similar, 
to que mejorara in rcgularidad y tu 
ritmo. A continuacidn, ei medida que 
aumente tu destreza. puedes tinmen- 
tEir la rapidez del meirdnomo y, por 
tan to. la de tus pulsaciones. 

Pero <,por que util bear un metro- 
nomo st 1 li ordcrlador dispone de un 
reloj incorporado? HI siguiente pro- 
grama es tin com pie to y tiuevo ejer- 
eiclo de meeanograha di spues to en 
forma de juego, en el cual tu purmia- 
cidn dependery de cuan bueno seas 
con el teclado. Consta dc Jos partes. 
La prirnera parte visualize una linen 
de caracteres seleecionados de modo 
aleatoric, que tii dcberEis teclear en el 
mismo orden en que apareeen. La se¬ 
gno da parte cs mas difit'll, ya que 
ahora los caracteres aparecen aleato- 
riamenic en la panialLa uno a une, tie 
modo que no lengns niragun indicio 


Ahora, los niveles inferiors del test 
te presen tan todos los csirEictcrcs que 
cstan disponibles solamente cuando 

6 INPUT 


JUEGO DE VELOCIDAD 

E& el momento de pensar en inere- 
menlar tu precision y tu velocidad. 


ile cual esel que vlene a continuation. 

Antes dc empezar el test, puedes sc- 
leccionar tu propio nivel dc dificuhad. 






23673<t THEN GO TO 280 
300 NEXT r 

310 PRINT AT 16,3rTUVlSTES 
,J ; er;" ERRQRES SOBRE 30” 
320 FOR f=l TO 200: NEXT f 
330 GO TO 20 

400 CLS : INPUT ,s Numero de 
teclas por minuto? ' F ;cprti 
410 INPUT "Nil mere de 
caracteres? ";r 

420 INPUT "Teclas (N)orrnal o 
(E)xtendidas? LINE m$ 
430 IF m$= KF N'' OR 

THEN LET a$=a$£ TO 52): 
GO TO 450 

440 IF m$<>"E” AND 

m$o"e ,? THEN GO TO 420 
450 LET t=3000/cpm 
460 GO SUB 800 
470 LET er=0 


Esto se 11 evil it cabo diciendole a I o r- 
denador ei que velocidad qtiieres que 
se visual leer las Ictrus, cs decir cuan- 
tos caracteres por minula deserts te- 
dciir. Hnunices, el ordenador le dura 
uu licmpo li milady en el cun I debes ic- 
dear cada earicter. dandoic en caso 
contra rio un pun to dc error. En el pri¬ 
mer nivel esto sc traduce en un indi- 
cador mbvil que le inuestru quo letra 
deberias estar tecleando, mientras 
que, en el segundo nivel. es el propio 
caracter cl que se irwestra parpa- 
deando sol mien te durante un inter- 
valo de tiempu determinado. 

Antes de que e in pieces el primer 
lest puedes elegir si deseas el teckdo 
normal (sola lelras) o el leclado ex- 
pandido (todus los simbolos). Ade- 
m;'is, antes de que eiupieccs el 
guild o nivel (el teal de came teres I. 
puedes deeidir sit duraddn. Se le pe- 


160 PRINT BRIGHT I;AT 11,1: 
s$ 

200 GO SUB 800: LET er=0: 

FOR r-1 TO 30 
210 POKE 23672,0: POKE 
23673,0 

220 PRINT AT 10,r-l;" * ,F 
230 BEEP .02.20 
240 IF PEEK 23672+256*PEEK 
23673>=t THEN LET 
er=er+l = GO TO 300 
250 LET i£=lNKEY$; IF i$="” 
THEN GO TO 240 
260 IF i$=s$(r) THEN PRINT AT 
I2,r ; "' jl : GO TO 230 
270 LET er-er+1 
280 IF PEEK 23672+ 256*PEEK 


dira cm am os caracteres deseas en lot a l 
en el icsu Cuando d ordciiador los 
hay a visualizado todos. se pa rani y te 
dara una puntuacidn basada en tus 
errnres. 

IVo es solo la ve Loci dad media Lo que 
snide e! ordenador en esle test, ya que 
debes mantener un rittno uniforme. 
Esto sera real men ic heneficioso para 
quien desec mere men tar su ve loci dad 
ireneral de escritura. Para ayudsrie a 
udquirir la coslumbrc, el ordenador te 


100 CLS : INPUT "Cuantos 
caracteres por minuto? 
cpm 

110 LET t=3000/cpm 
120 LET s$ = 1,JJ 
130 FOR n= 1 TO 30 
140 LET s$-s$+at(INT 
(RND*84) + 1) 

150 NEXT n 


dara una serial ucustica junto al indi- 
cador visual correspondietue a cada 
letra, 

Ahora rede a el programs y pan u 
phieba tu habilklad:. 


10 BORDER 7: PAPER 7: INK 
0: CLS 

20 LET a£ = ”ABCDEFGHLJKLM 
NQPQRSTUVWXYZ" 

30 LET aS=a$+"abcdefghijkl 
mnopqrstuvwxyz" 

40 LET a$-a$+"123456789 

50 LET a£=a$+CHR$ 

34+ FF <> 

60 PRINT INVERSE 1 f AT 6,7 : ” 

TEST 1 0 TEST 2” 

70 IF 1NKEY$- ,J " THEN GO TO 
70 

80 LET i$-INKEY$; IF i$-"2' p 
THEN GO TO 400 
90 IF i$o"l Fr THEN GOTO 
70 






TECLiA E-iTAo PAUHaiS 


"JTC ! E *{XLLA3 LOMKJfl DlAftlO 




INPUT 7 









UN CGMSEJQ ACERCA DE LA 
VELOCIDAD 


48(3 FOR n = 1 TO r 
490 POKE 23672,0: POKE 
23673,0 

500 LET r$=a${INT [RND*LEN 
a$H!) 

510 PRINT INVERSE 1;AT 10,’ 
15 ; r$; INVERSE 0;AT 11, 
15 ;" " 

520 BEEP .02,20 
530 EF PEEK 23672 + 256*PEEK 
23673>=t THEN LET 
er=er+1: GO TO 580 
540 LET f$=INKEY$: IF i$ = 11 " 
THEN GO TO 530 
550 EF i$-r£ THEN PRINT AT 
11,15;"'”= GO TO 570 
560 LET er=er+1 
570 IF PEEK 23672+256*PEEK 
23673<t THEN GO TO 570 
580 NEXT n 

590 PRINT AT 16,3;"TLJVISTE 
er ; ” ERRORES SOBRE 


it— 1 

600 FOR f=l TO 200i NEXT f 
610 GO TO 20 

800 LET c$ = ”5.,4.,3,*2nL.0' 1 

810 FOR n=l TO 16 

820 PRINT AT 2,5 + n : c$(n) 

830 PAUSE 10 

840 NEXT n 

850 BEEP .2,10 

860 PRINT AT 2,0;TAB 31;*’ " 

870 RETURN 



Cuando utilities el program a de ve- 
loeidad es niejor empezar por el te- 
dndo norm a] a baja velucidad, dtga- 
mos de 30 a 50 caraeteres par minuter, 
El nesgo a evitar consists en teelear 
los caraeteres. fam ilia res mis rapida- 
mente y luegu ir aids do Spado cuando 
to encucntres eon caraeteres sobre los 
que no estes (an seguro, partieular- 
nieitte si ctig.es el tedado expandido. 

Una vez tengas el habito de teelear 
a un ritmo coiisiante puedes sclccrio- 
nar el tedado expandido y, a com.t- 
n u aci on, i n ere nten tar g ra dn a I me n tc i □ 
veloddud. 























LEJOS DEL 
MUNDANAL RUIDO 


■ _ AFUNT A R AL QBJETIVO 

■ _ DISTANCES 

■ _ LA VUELTAAIMUM DO 

* MANiOBRAS EN EL ESFAClO 

■ _ MOVIMIENTOS PLAHETARIQ5 


Unode Jossucnos del bmnbre hit sido 
siempre alcaitzar las eslrdlus. Este sir- 
lieu In, toifipleriierlLO del i|iiu dcdkaillOS 
a Ins ob.jel os voladoresa va a enseiiarle a 
tu micro ednio dcl>e consqguir tal nhje* 
tivn. 

Lit el articiilti en que tratamos de 
trayeccorias, «Todo lo cine sube ba jaw. 
publicudo en INPUT n." 12, pudiste 
ver o6mo se puede tlis idir la vdocidad 
de tin provedil en art component e ver¬ 
tical y olro horizontal. Pudiste ver 
tambien edmo se puede rnodificar el 
alcancc de an proved it cambiando 
cl Sngulo de devaeibn y la vdocidad 
a la que se disparaba Hsie artfculo 
reanuda en cste punu> d esiudio de los 
cuerpos nrtbviles. Analizara d movi- 
mlento de los objetos bajo la ley de 
grave dad, y re va a perm it ir conocer 
su trayectoria desde punt os ccrcanos a 
la stiperficie ter rest re hasta muy ale- 
jados, tiEisia qticdsr en brbita, 

Antes de lanzarle al espacio, entru 
d primer programa, que te demucsira. 
lo util que nos va a resultar saber algo 
sob re tray edemas para cuando quicras 
haoer que tns juegos de pmyectiles 
scan mas inte resumes y tengan mayor 
dificultad. 



10 FOR n=0 TO 31: READ a: 

POKE USR V + n.a: NEXT rt 
20 BORDER 4; PAPER 0 l INK 
9: CLS 

70 LET a=INT (RND*5 )j LET 
b-INT (RND*5) + 26: LET 
C=I NjiT (ftND*8)+2: LET 
b=lNT(RND*8H2: LET 
st= INI (RND*100-c*8)+1 
LET d = 0 
90 LET d-d+1 
10© CLS : GO SUB 300 
110 INPUT "ANGULQ? f \a2 
120 IF a2>89 OR a2<l THEN 



GO TO 110 

130 INPUT ,, VELOCIDAD? rf p e 
140 IF e=0 THEN GO TO 100 
160 LET an=a2*[PI/180); LET 
x=0 

170 LET x2=x+(a +1)*8 
180 LET y=S-Hx*TAN 

an—4*x*x,''{e*e*COS an*COS 
an)} 

185 IF ATTR E21-1NT (y/8),INT 
(x27S3) = 6 THEN GO TO 245 
190 IF y< = 0 THEN GO TO 245 
200 IF [y>175 OR x2>255) AN 
d<10 THEN GO TO 90 



205 IF y>175 OR x2>255 THEN 
GO TO 270 

210 PLOT INK 8 ; x2,y: BEEP .01, 

y/10 

220 LET x=x+3 
230 GO TO 170 

245 IF x2>-b*8+3 AND 

x2< = b*8+10 THEN PRINT 
AT Sl.biCHRS 145; FOR 
n = 20 TO 0 STEP -1: BEEP 
.01,n: NEXT n: GO TO 270 

246 IF d<10 THEN GO TO 90 
270 IF d- 10 THEN PRINT AT 8, 

10;"TIENES QUE 
MEJORARt": GO TO 280 
275 PRINT INVERSE 1;AT 8,10: 
"BUEN TIRO I”: AT 10,8; "LG 
CONSEGUISTE EN “ f d 
280 PAUSE 100: PRINT BRIGHT 
l f PAPER 2; INK 6;AT 13,8; 


"TIENES OTRO JUEGQ'L 
PAUSE 200 
290 GO TO 70 

300 PRINT INK 5;AT 21,a;CHR$ 
144:AT 21 r b;CHR$ 146 
310 FOR n-1 TO c= PRINT AT 
21-n+l,12;: FOR m=l TO 
c: PRINT INK 6;CHR$ 147:: 
NEXT m: NEXT n 


INPUT 9 




































320 RETURN 

500 DATA 3,6,60,40,104,60, 

126.255 

510 DATA 35,90,165,90,60, 
155,24,60 

520 DATA 24,36,66,153,153, 
66,36,127 

530 DATA 28,42.85,170,127, 

170.85.255 

El programs pide quc entres La ve- 
locidad dc despegue y cl &ugulo de 
elevacidn para obtenerun disparo quc 
va desdc la parte inferior i/quierda dc 
III pantalla hasta un objetivo quc sc 
halla en la parte inferior derecha, Pue- 
dcs haccr mas dificil el juego colo- 
candocL puntode disparo y el objetivo 
a distancias aleatorias {random} para 
cada scrie dc Intenios, y, Lodavia mas 
dificil. in&talando una barrera dc ia- 
mano aleatorio cn un puido tambien 
aleatoric entre los pantos dc partida y 
dc llegada. Cualquicra dc las traycc- 
torias que eseoju*. habrin de tener la 
sufidenlc altura como para superar 
la barrera al efectuarse el disparo. 


DISTANCIAS 

Este programs es un buen ejemplo 
de edmo el ccrcbro humane emile &us 
juieios. Con solo mirar las posiciones 
del fusil, del ob$t£culo v del objetivo, 
SC puede cslimur La vcloeidad y cl urt- 
gulo rcqticridos para obtener una 
curva quc haga quc cl proyectil sc 
cl eve por encima del obstaeulo v dd cn 
tod a la diana. Con un poco de prac¬ 
tice, vas a sorprender por la cantidad 
de proyectilcs quc consigucs quc den 
en cl objetivo, 

Pero medir talcs distancias dc mo- 
men to te resultant un tantco eon rrtu- 
chos fallos, Lo que puede ocumr es 
que sepas la distancia aproximada del 
objetivo, y ten gas quc calcular cl k n- 
guLo y la veloddad adccuadas. Anali- 
zando sr d disparo te ha quedado 
corto n dcmusnido Largo, progresiva- 
mente har&s cAlculos mas ajustados. 

El siguiente programs muestra 
edmo hater esto. Despeja de la ne- 
moria el primer program a (CLEAR), 
pcrti una vez que Lo has guardado 
(SAVE) si es que deseas volverlo a 


usai'. Entra ahora eslas lineas que si- 


10 CLS 

20 INPUT "VELGCIDAD 

DISPARO (1-10000 m t$V\ 

sp 

30 IF sp<l OR sp> 10000 
THEN GO TO 20 
40 INPUT AT 4,0;"ANGULO 
DISPARO (1-90 GRAF.a 
50 IF a<l OR a> = 90 THEN 
GO TO 40 

60 LET a-a*{PI/180) 

70 LET r=sp*sp*$IN (2*a}/10 
80 PRINT AT 10 r 3; N EL RANGO 
ES MNT (r+.5);" metros" 

90 PRINT AT 20 P 1;TULSA 
UNA TECLA PARA OTRO 
JUEGO (0 FI N}" 

100 PAUSE 0: LET a$ = INKEY$: 

IF a$=” M THEN GO TO 100 
110 IF a$<>"0" THEN GO TO 
10 

Estc program a te permite introducir 


(INPUT) los valures dc la veloddad 
inicial (linea 20) y del angulo dc ele- 
vacidn (linea 40). La linea 70 calctila 
seguklamenlc y visual Lei cl alcance 
que damn aL proyectil cslos vaiores, 
Lei variable R cs el alcance (Range), 
SP la velocidad (SPeed), A cs cl fin- 
gulo, yell 0 es cl valor aproximado de 
la gravedad prdximos a la superficie 
ferrestre (en rcdidEtd cti 0,81). 

El efecto de la presion del aire no sc 
tienc cn cucnta + antique no debes ol- 
v id aria cn pmebas que si mule n la rea- 
lidad. La veloddad de dispart) m&s 
alta que posec un earidn supera los 
2.000 m/s. Con el la sc ban disparado 
objetos fuera de la Tie mi en misidii 
investigation*. Los objetos alcanzan 
una altura de 1 HO knt. 


LA VUELTA AL MUNDO 

Si cl objeto es di spar ado con un tin- 
gulo quc lo el eve porendma de tad te¬ 
rra, cl efecto dc la presidn es menor, 
pero si deseas un alcance aim mayor, 
habrasde icneren cucnta La curvatura 
de hi llcrra. Uno dc los primerosden- 
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tificos que sc planteuron el problem a 
del maxsmo alcance de un proyectil 
qu c sc cleva sobre la superficie de la 
Tierra ftie el britanico. sir Isaac New¬ 
ton., 

Newton imagind un poderoso fusil 
en la cirri a de una tno maria lo sufieien- 
temente alta como para estar fuera de 
la mmbsfcra lerrestre. Los disparos 
h echos a una velocidad cad a vez ma¬ 
yor lieganan cad a vez mas Icjos si la 
Tierra fucra plana; Pern dado que 
nucstro planet a es re dorido. la super- 
ficie se separa del proyeciil, con lo que 
pucde Eilcanzar una distant la mayor 
que si la Tierra fuera plana. 

Newton argument aba, ademas, que 
se podria entonces dispar ar un pro- 
yectil a tania velocidad que nunca ca¬ 
vern cn tierra, sino que le aleanzara a 
el per la cspalda, Cuando el proyectil 
fucra a caer sobre la superficic dc la 
Tierra, esia sc curvarfa de tal man era 
que el proyectil quedaria *sin tterra» 
para sieinpre: estana dando vueltas al 
in u ndo- 

Una vez que cualquier objeto es¬ 
cape de la graved ad del planeta, su ve¬ 



locidad y d island a respecto del pi a- 
neta determinan cl tipo de drbila que 
seguini: circular o eliptica, 

Para que se puedan haeer predict to¬ 
nes y in ed id as sobre un plane la o sa¬ 
tellite . debe couoccrse su drbila con 
precision: hay que saber bis caracie- 
ristieas exact as de la el ipse, El grade 
de «acEiaianiiertto* de una cl ipse se 
denomina excemrkidad (E). Fsta 
midc 3 a proportion entre la largura y 
La anchura de Ea cEipse. Si E es igual a 
L la clipse es igual de ancha que de 
larga, o sen, cs una circuit to rend a. 

Emra > ejecuta (RUN) el siguiente 
programa para ver el e fee to obtenido 
al variar E con v id ores que van de cero 
y pico a niayores que uno: 

10 CIS 

30 INPUT "EXCENTRlClDAD 

<0.1- 1,9)”.e 

40 IP ec.l OP e> 1.9 THEN GO 
TO 30 

50 PLOT 127 p 87+e*40 
60 FOR a—0 TO 2*PI + ,2 STEP 
,1 

70 DRAW 127+(40*SIN 
a)~PEEK 23677 t 
87 +(6*40*003 aJ-PEEK 
23678 
80 NEXT a 

90 PRINT AT 20,1/TULSA 
UIMATECLA PARA QTRO 
JUEGO [0 FIN)“ 

100 PAUSE 0: LET a$-INKEY$: 

IF a$ ="" THEN GO TO 100 
110 IF a$<>"0" THEN GO TO 
10 

Estc programa establece un bude 
entre las 1 Eneas 30 y NO para dibit]sir 
clipses para bis cuales tu introduces 
(INPUT) el valor de E cn la linea 30. 
Las curves se dibujan mediante un 
FOR ... NEXT (1 incus 60 a 80) para 
que dibujen DRAW entre cada punto. 

Emra valores de E denlro del inter¬ 
vale que te muestra la pantallu y com- 
prueba edmo E = 1 da una circunferen- 
cia, E-0, ... le da clipses aplanadns, 
y H > 1 te proportions elipses como 
huevosdc pic. Conclusion: toda drbila 
no cs mils que una clipse con su pre- 
dso valor de E, 


MAIMIOBRAS EN EL ESPACIO 

Una vez en orbit a, un satelite o 
nave cspacial no neccsita energia al- 
guna para in ante lie rse eti ell a, dado 
que su c;uda es libre. 

Cuanto meiiQr sea cl radio de la br- 
bita, mas rapidamente se movers el 
objeto, Emra el siguiente programa 
para cumprobarlo: 

10 CLS : LET gc=0 
40 LET r-40: LET rt=10 + INT 
(RND*60): INF ABS 
(r-rt)<10 THEN GOTO 40 
50 CIRCLE 127,87,4 
60 LET s— . 1: LET a=0: LET 
at-INT (RND* 10) +1: LET 

f—0 

80 LET a=a+s 
100 LET at=at+.l*SQR 
(£40/rt)~3) 

110 IF INKEY$ = "7’' AND r<85 
THEN LET f=f+l: LET 
r-r+2: LET s=s*SQR 
(CCr—2Vrr3)i GO TO 130 
115 IF lNKEYt="6" AND r>8 
THEN LET f=f+l: LET 
r-r-2: LET s=s*SQR 
({(r+2)/rr3): GO TO 130 
120 FOR p=l TO 5: NEXT p 
130 LET x-r*SlN a: LET 
y=r*C0S a 

140 LET xt=rt*SIN at: LET 
yt=rt*C0S at 
150 PLOT 127+x,87 + y 
160 BEEP ,02,r/2 
165 IF gc<>0 THEN PLOT OVER 
1; 127+ox f 87+oy 
170 PLOT OVER l|l27 + xt, 
87+yt: LET ox-xt: LET 
oy-yt: LET gc=l 
180 IF ABS U-xt)>4 OR ABS 
<y-yt> THEN GO TO 80 
190 PRINT AT 20 i 12;f;”QUEMA 1 ' 
200 GO TO 200 

Ejecutalo (RUN) y ob&ervar^s la es- 
lela dc un uparato en drbila y tambidn 
cl salelitc objetivo (sin estela). Intcnta 
ajustar la orbit a de tu apunilo con la 
del salelUe medjante las teclas de fie- 
dias dc cursor arriba y cursor abajo. 
La linea 4(1 csiahleee d radio R de la 


INPUT 11 










orb it a del uparato a valor 200 y el ra¬ 
dio del objetivo a un valor random . La 
linen 60 estableec las variables para las 
posiclones tie |wtIda. 

Hi punio crucial del programs esli 
en la line a 100 h que sc inspira en otra 
impurlaiue ley fisica: la mi/, euadrada 
del tiempo que sc tarda en hacer una 
orbit a cut era, divklida por el cubo del 
radio, es const ante, Es lo que explicit 
SQR y la potencia a 3 de esta line a. 

Para aumertlar o disminuir el ta¬ 
rn a no de la nrbita (haccr maiiiobras) 
deberas utilizer las flechas de cursor 
arriba y abajo. Recite rda que cuanio 
mas pctjuctiasson lasdrbitasa mas vc- 
locidad tras. 


IVIOVIMIENTQ PLANETARIO 

En realidad, las mail io bra 5 de sal Ida 
y entrada a una orbit a son mucho mas 
labor!osas que loque el programa an¬ 
terior pueda haccr pensar. Es muy fa- 
dl trasladarse de una drbita cl [plica a 
otra, pero la inmensidud del espacio 
bace que sea difieit local war un obje¬ 
tivo. Y para comp bear las cosas inter- 
vicnc dc nuevo cl efeeto de la grave- 
dad, Lit graved ad del Sol, dc la Luna 
v de Eos plan etas ejerce su influenda 
sob re lit traycetoria del aparato espe¬ 
cial , 

En la praclica las hcmimieruas de 
los astronaut as son predsamente unos 
poderosos ordenadores, Estos sc en- 
cargan dc contra hr la vclocidad, el 
tiempo y la dircccidn del encerdido dc 
los cohctes para mantener la nave etl 
la trayecioria dcscada. 

IJ Ti ll vcz situada en la trayecioria co- 
rrecta, la nave que da sometida a I in- 
flu jo del campo gravitatorio del sis- 
tema solar. Solo son neeesanas unus 
pocas con eccitmcs cn mcscs y anos dc 
viajc: jits to euando los planelas y el 
Sol sc interponen a ho tras a no, El si- 
guiente programa va a permiiirte ob¬ 
server los pkuictas en movimiento: 

10 BORDER 4: CLS r LET gc = 0 
20 DIM d{9): DIM p<9): DIM 
1(9): DIM a£9): DIM b(9): 

DIM *(9): DIM y{9) 

30 FOR t=l TO 9: READ d(t), 

p(t): MEXT t 


40 INPUT ".Cuantos planetas 

50 IF s<l OR s>9 THEN GO 
TO 40 

60 LET sc-d(s)/325; LET 
t=p£s)/75 

70 PRINT "Hay " ; INT t; M dias 
de retraso Jli "entre cada 
punio": PRINT # I; 
"PRESION A SPACE PARA 
CONTINUAR" 

75 IF INKEY$<>CHR$ 32 
THEN GO TO 75 

80 CLS 

100 PRINT #1 ; "PULSA SPACE 
PARA OTRO JU EGO" 

110 LET n= 1 ■ LET m = l: LET 
g=PI/180 

120 FOR q-1 TO s 
130 LET r=d(qVsc; LET a = r: LET 
b-n LET e=0: LET p=p{q)/t 
140 IF q = 1 THEN LET e-.2t 
LET b“a*,98 

150 IF q =8 THEN LET e=,26: 

LET b-a*.96 
160 LET ilq)+360/p 
130 LET y-g*i(q): LET x-iNT 
(a*(C0S y-e)): LET y=lNT 
(b*SIN y) 

200 IF gc<>0 THEN PLOT 
BRIGHT 0J27+x(q) ( 

87 + y(q) 

210 PLOT BRIGHT 1; 


L27 + a(q 1/4,87-fb(q}/4: LET 
x(q)=a(q)/4: LET 
y(q)=b{qK4 

240 LET a£q)=x: LET b(q)=y: 
NEXT q 

250 LET m = m+t 
260 IF INKEY$=CHR$ 32 THEN 
RUN 

270 LET qc = l: GO 
TO 120 

280 DATA 58,88.108,225,150, 
365,228,687 

290 DATA 778,4333,1427, 
10759,2870,30635 
300 DATA 4497,60190,5969, 
90741 

Cuando ejecutes (RUN) esie pro¬ 
gram a. de bents entrar un valor para 
sc Iced on nr el mi mere de plane tas que 
deseas observar, Cuanto mayor sea d 
numero (cnlrc d I y el 9) mas com- 
plicadas imageries obteiuMs, Kara sti- 
ber que planetas cstas obscrvaiido, re- 
cucrLla quo d mas proximo it! Sol es 
Mercurio, despues 3e siguc Venus, y 
tuego la Tier™, Martc, Jupiter, Sa- 
turno, Uraiio, Neptuno y Flu ton. Hjc- 
cuta el programa con va lores diferen- 
tes y observa que las orbitas de 
planetas (Mercurio y Flu ton) sun da¬ 
rn rnente eltpticas, De hccho lodas son 


elfpiicas. sulu que algunas tiener una 
exccnlriddad muy pequena y casi sc 
□similan a circunferendas. 



12 INPUT 












UN DETALLADO 
EXAMEN 


■ DieUJO DE UNA IMAGEN 

■ DETERMINACION DE LA ESCALA 

m _AMPLIACION Y REDUCCION 

■ DETALLES OCULTOS DE LA IMAGEN 

■CONFECCIQN OE DIBUJOS PRECISOS 



liste versitil programs puede reducir 
una imagen a un pun Co microscupfco 0 
ympliyrla a diincnsiini.es astronomical 
Etiliv-aLo para crear dibujos altaim-nte 
precisos n cwtio juego. 

El programs quc aeompaiia a este 
yrlieulo es baslantc mas divertido quc 
los program as usuries de aplicadoiics. 
|)e hecho, pucde militarise como 
juego o t'Omo aplieaddn. 

Te permilc dibujar uny imagen y, a 
continuadbn, amplmr cualqtiier parte 
dc ly misma para dibujarla con mas 
detalle hast a un a escala micrO'Scdpiea, 
Puedes cambair la c sea la en cualquier 
momento, utilizando ampliaciones dc 
varios mi Hares o, ineluso, centenas dc 
niillEir. Hn uhei imagen* puede quedar 
oculla n na inmensa cantidad de dela¬ 
tes quc desaparccen de la vista a me- 
dida que te alejas y reaparece de 
nuevo a medida que tc uproximas. 

hnaginale eon un polente micros- 
copio. asomandote mils y imisde eerea 
ei alguna parte dc la escena, Aparccen 
los detailed ei me dida que la amplia- 
cidn st! incrementa y sc liaccn borrosos 
hasta desaparecer a medida que de- 
crecc. O puedes mirarlo dc oiro 
modo. Empczando por una vista de lu 


Casa, puedes iniaginur que te mueves 
mas y mas lejos perdiendote en el es- 
pacio, Sueesivam exile tu casa. tu Ciu¬ 
dad, in pitis c, incluso. In propia Tierra 
dcsaparecen convirttendose eit un 
punto en la d is t tin da. Efcctos graficos 
similares pueden conseguirse utili- 
zando el relativamente oorto pro- 
grattiEt ofrccido aqui, 

Un modo de util tzar el programs 
consists en eon vert irlo en un juego 
para dos personas. U no dibuja una es- 
eena escondiendo alguri «tesoro» a 
una anvplmcidn muy pequciia en algiin 
lugar dc la imagen. A continuacidn, la 
oira persona debe buscar el tesoro, 
Puede resulur sorprendcmcmciite di- 
fici]. Imagine que empiezas por an 
cuadrado de HI centimetros de lado. Si 
lo amplias 5.(XX) veecs, el cuadrado 
original se cormerte en un area 
enorme de un cuarto dc mil Ion de me¬ 
tros de l ado, un espacio suficiente 
para escoEider casi cualquier cosa. 

For supuesio, el program a ticne 
tambien aplicaciones serias. Pueden 
realizarse dibujos muy precisos intro- 
ducicndo los d eta ties a una escala mu- 
cho mayor que la usual y, a continua- 


cidn. red tide ndo I os al tamano co- 
rrecto. Sc pueden conseguir dibujos 
teenieos preeisus dibujandolos jior 
partes tic esc modo. El program ti t a ru¬ 
ble n es util en la ensenanza. Porejem- 
plo* en una IccciOn degeografia, la po- 
sicidn de las ciudades principal es 
puede senalarsc en un niEtpa del pais 
pero a cscala mudio mas reducida. 
Con una ampliacion normal, solo sc¬ 
ran puntos residuales y solo aparece- 
ran en detalle si eliges ampliar la 
sicidn corrects de la imagen, 

InCluSO pndrias intro- 
dueir los nombres dc las 
ciudades ya que, aunque 
no puedas introducir icxlo 
eon esie progrunia. cs algo 
bastante simple dibujar l:is 
lctrjus. Utili/.Ei una escalti 
grande para dibuj arias p ri¬ 
me ro en la posicibn co¬ 
rrects y, ei condnuacidn, 
redttedas al tamano eo- 
rrecto. 

















\ 



Cuando ejceutes el programs, se te 
presentardt una pant alia esi bianco y un 
pequcno cursor parpadeantc en cl 
centra de la tnisrna. Ademas, habra 
dos mi meres. El de In i/.qyiCrda tc da 
la escala dc La pan tails actual, 1 para 
empezar, y el de la derecha te da cl 
itumcro dc tineas dibit jada^ Die ho 
niimero csta diniensionado a un ma¬ 
xi mo dc 600 en elinicio del programs. 
El programs estfi controlado porcl te- 
cladn y es extremadamente fact] de 
utilizar 

Las leclas del cursor mueven el 
punto por la pantullu. Puedes aeelenir 
el mo vimLento del cursor pulsando si- 
multineainente la tecla SYMBOL 
SHIFT. 

Las otras tectas ulilizadas son L. M, 
C. D, 1, O y Z. Eslo cs lo que hEiccm 
Pulsa la L para dibujar una tinea con 
el cursor o M para mover cl cursor sin 
dibujar una linea, St pulstts C el cursor 
vuelve a I cern.ro de la pantalla. Si ves 
que has cometido un error, pulsEi D 
para borrar y se te preguntara cu&nfas 
Linens desetis borrar. EL programs 
enema hacia atras a parti r de La ultima 
Line a dibujada y borra el numcro dc 
Li'ncas cor recto. Lei tecla Q obtiene un 
fieliero de salida de nrtodo que puedas 
salvar tti dtbujo, juieniras que I earga 
un fichero cor respond iente a un di- 


L>ujo salvado previa men lc. Las modi- 
ficneioncs pcriinentes para salvar los 
fichcros en disco se ofreeen despues 
dd program a principal. 

Ahora vamos por la parte intcre- 
sEinlc. La tecla Z (zoom) te per mite 
cambist la escala de la imagen, La es- 
cliIei. o ampliacidn., se introduce como 
iitiinero, Por ejemplo, 2 dol>la La es- 
cala y ,5 la reduce a la mitad. La ima¬ 
gen sc vuelve a dibujar a la nueva es- 
cata centrada en d cursor, por Lo que 
siempre dcbcrEis mover el cursor al 
punto que deseas ampliar. Si alguna 
parte de una Ifnea se saLe de la pan¬ 
talla, no se dibuja dicha luica. 

Una ampliacidn ehihei escalade 0 no 
bace nada, mientras que una escEtla dc 
uno vuelve a dibujar la imagen cen¬ 
tra da end cursor, pero a La in ism a es- 
cala. La imroduccidn de un nuntero 
negative genera una imagen espejo de 
la original. Los cambtos de esc ;l 3 ei son 
acjmulativos, por lo que una amplia- 
cion de 2 seguida por otra de 2 incre¬ 
nte nla La ampliacidn a 4. 


10 DEF FN a{x)=(>t/256) +128 
20 DEF FN b(x]-£x/256)+85 
30 BORDER 0t INK 7; PAPER 
0: CIS 

50 LET ln=l: LET $c=l: LET 
1=600 

60 LET f=0: LET x=0: LET 
y=0: LET zoom = l 
70 DIM a(| + lL DIM bflh DIM 
eff); DIM d(l) 




COMO UTLLIZAR EL PROGRAMA 
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80 LET a(l)=x: LET bQ)=y 
90 LET c(l)=x; LET d(l)=y 
100 LET t$=IHKEY$ 

110 IF \$ = f T AND f AND l>ln 
THEN BEEP 07,0: PLOT FN 
ata(ln)).FN bCb(ln»: DRAW 
FN a(c(ln))-PEEK 23677, 
FN b(d{ln))-PEEK 23678= 
LET ln=ln + lr LET a((n)=x: 
LET b{lrt)=y: LET c(ln)=X: 
LET d(fn)=y: LET f=0 
120 IF i$ = "c" THEN LET x=0: 
LET y=0; LET c(ln)-x: LET 
d(ln)=y 

130 IF i$=''m' J THEN LET 
a(ln)-x: LET b(ln)=y 
140 IF i$*"i" THEN GO SUB 
420 

150 IF i$=”o" THEN GO SUB 
600 

160 IF i$ = s 'd' 5 THEN GO SUB 
710 

170 IF i$ = ”z" THEN LET lv=0: 
GO SUB 840 

180 LET sp = 256: IF CODE 
|NKEY$< = 41 THEN LET 
sp=2048 

190 IF INKEY$-“8 3i OR 
INKEY$ = ,r r AND 
x>—32768+sp THEN LET 
f=l: LET x=x+sp: LET 
c((n)=c(ln)-i-sp 
200 IF I NKEY$="5" OR 
|NKEY$ =AND 


x<32768-sp THEN LET 
f = — 1: LET X = X”5 p: LET 
c(ln)=c(lnHsp 
210 IF 1NKEY$=7 J1 OR 
!NKEY$=."" a AND 
y>—22400+sp THEN LET 
f=- 1: LET y-y+sp: LET 
d(ln)=d{ln)-F£p 
220 IF INKEY$ = "6" OR 
INKEY$-"&” AND 
y<22400-sp THEN LET 
f=l: LET y=y-sp: LET 
d(ln)=d(in)-5p 
230 GO SUB 250 
240 GO TO 100 

250 PRINT AT 1,2; INVERSE 1 : " 
ESCALA:";: LET a$-3TR$ 
sc: IF LEN a$>4 THEN LET 
a$=a$f TO 4) 

255 PRINT INVERSE l;a$;AT 1, 
18;" LINEAS; M ;ln-l 
280 LET bx=FN a(a(ln)): LET 
by=FN b(b{ln»: LET ex=FN 
atctln)): LET ey=FN b{d[Sn)) 
290 PLOT bx.by: PLOT ex K ey 
310 PLOT OVER Ubx.by: PLOT 
OVER l;&x r ey 
320 RETURN 
420 CLS 

430 INPUT “ENTRA N0M8RE 
FICHERO H ;fS 

435 IF fS-= M " THEN GOTO 430 
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440 LET ln = l: LET zoom= 1: 

LET sc-1 

460 LOAD f$ DATA a() 

470 LOAD f$ DATA b() 

480 LOAD f$ DATA c() 

485 LOAD f$ DATA d{) 

490 LET In—aC601) 

690 RETURN 
600 CLS 

610 INPUT "ENTRA NOMBRE 
FICHERO ";f$ 

615 IF f$="" THEN GO TO 610 
620 LET 1v= 1 1 GO SUB 840 
625 LET a(60l)=ln 
630 SAVE f? DATA at) 

640 SAVE n DATA bO 
650 SAVE 1$ DATA cO 
660 SAVE 1$ DATA d() 

700 RETURN 

710 INPUT "ENTRA NUMERO 
DE LINEAS A BQRRAR ,p, k 
750 IF k=0 OR ln-k< = 0 THEN 
GO TO 830 
755 LET In = In—k 
750 LET K=a<ln>: LET y=b(ln) 
780 CLS 

790 LET c(ln>=;<: LET d(ln)=y 
800 IF ln= 1 THEN GO TO 830 
810 IF ABS <c{In — l))c32767 
AND ABS (d(ln-l»<22399 


820 LET Iv—2: GO SUB 840 

830 RETURN 

840 IF ln=0 THEN RETURN 

850 IF Iv= 1 THEN LET 

zoom = 1/sc r CLS : GO TO 
920 

860 IF lv=2 THEN LETzQQm=l: 
GO TO 920 

870 BEEP ,1,10: INPUT "ENTRA 
ESCALA ZOOM”; 
zoom 

890 IF zoom = 0 THEN GO TO 
1020 

910 CLS 

920 FOR u= 1 TO 
ln-1 

930 LET a(u)={a{u)-x)*zoom: 
LET b(u}={b(u)-yr 
zoom 

940 LET c(u)-(c(u)-x)*zoom : 
LET d(u)=td(ii)-y)* 
zoom 

950 IF ABS (a(u))<3276S AND 
ABS (b(u))<22400 AND 
ABS (c(u))<32768 AND 
ABS (d(u))<22400 THEN 
PLOT FN a(a(u)],FN b£b(u»: 
DRAW FN a(c(Li))—PEEK 
23677,FN b(d[u))-PEEK 
23678 


970 LET a{u)-(a(u)-x)*ZO&nk 
LET b(u)={b(u)-y}*zoom 
980 LET c(u}=(c(u)-x)*zoomt 
LET d{u) = (dCLi)-y)*zoom 
990 LET x=c(ln): LETy=d(ln) 
1000 IF ABS £a((n))>32767 OR 
ABS (b(ln)}>22399 THEN 
LET a£ln)=xj LET b(ln)=y 
1010 LET sc^sc^zoom 
1030 RETURN 


CONSEJO PARA JUGAR 

Cuando utilises lu program a como 
juego, la parte dificil consists en asc- 
gurarte do que el mensaje oeutto o el 
lesoro no aparezea oonio una m ant ha 
nbvia en La image in. 

El truco consists en dibujar grupos 
de deialles a distintas ampliations, de 
mode que tu oponenie icnga que bus- 
ear el area eorrecla de la imager as! 
como III ampliation adetuada Sin em¬ 
bargo, no escondas demasiado bien el 
lesoro ya que es fad! perderse irre- 
misibkmente en ampliaciones inuy 
grandes. 

SL deseas dark al juego una puntua- 
ci6n, simplementc cue lit a el nunnery 
de movimientos y de cambios de cs- 
cala que I leva a caho eL jugador. El 
que efcctue el me nor numero de mo- 


THEN LET x=0: LET y=0 

960 NEXT u 

vim if ntos cs el ganador. 


Ed &l sorteo correspondence al mjmero 20 entre quienes escribisteis mandando vuestros votes a LOS 

MEJORES DE INPUT halt resultado qanacicres: 


NOMBRE 

LOCAL 1 DAD 

T1TUL0 ELEGIDO 

Pedro M. Perez Gonzalez 

Malaga 

SCOOBY DOO 

Inigo Clemente Lazaro 

Calalayud (Zaragoza) 

F. MARTIN 

Jose M. Varela Ye bra 

Leon 

ARMY MOVES 

Antonio Vel ez Case lias 

Sta. Coloma Grama net (Barna) 

SOCCER 

Enrique Cartagena Martinez 

Elche (Alicante) 

THANATGS 

Antonio Rivas Perez 

Vigo (Ponlevedra) 

COBRA 

Angel Vadillo Rueda 

Gelate (Madrid) 

f. MARTIN 

Tem Reus Hermoso 

Barcelona 

TRIVIAL PURSUIT 

Jesus Darriba Gonzalez 

Coslada (Madrid) 

FIST |i 

Francesc Arenas Sanchez 

Salient (Barcelona) 

ARMY MOVES 

-J 


16 INPUT 

























j^rogramacioi^j 


RECURSION: BUCLES 


DENTRO DE BUCLES 


■ _ UN AIRE DE MtSTERIQ 

■ _ MAQUINA IMTELIGENTE 

■ PROCEDIMIENTOS RECU RSIVOS 

■ TRANSFEREMCIA DE PARAMETROS 

1_ DETECTION DE ERRQRES 



Si algunu tie l us prugramas poser 
subrut hi us a las que sc llama rcpetida- 
ment« t pucdcs cncontrarte con un caso 
abeenado para utili/ar program uciun 
recursive. Averigua Cdmo, 


UN AIRE E>E MISTERfO 


Generalmente, los programadores 
inexpcrtos ven la recursion comQ an 
tema altamente complicado v miste- 
rioso. Esu t-s a causa de que las tu¬ 
nicas de programacidn uLilizadas pue-. 
den ser extremadamente d if idles de 
scgLiir a partir del listado. Algunas ve- 
ees, ni siquiera un dia¬ 
gram a de flu jo mues- 
ira daramente lo quo 
sucede reaknente. No fij 

obstante, el principio 
no es difrcil de captar. 

En terminos male- 
maiieos, ^recursion® ^ - • ' - 

es la repetiddn de una 

operacibn deter nil- '-‘ - 

nada, Sin embargo, 
esta definition. no es ^UlL ' 

e strict antentc aplica- 
ble a la programs- 
ddn.endonde \ —— 

tiene un signi- \ 

ficado nias \ 

preciso, En \ \__I 


Esencialmente, programnr un or- 
denador cs un ejurcitio de resolution 
de problem as. A medida que lu ba- 
bilidad se desarrolle. podnis darte 
CLiejita de que la mayor parte de pro¬ 
blem as pueden resolverse si sc divide it 
en problem as nienores y mas simples. 
Sin embargo, eventualmente llegaras 
a una de las pesadillas de los progra- 
madores, en la que un interna de re¬ 
solver un problems te lleva solarnenie 
it un nuevo problema* la solucibn del 
eual te conduce a otto problema y asi 
suecsivamentc. 

Puedes eorsiderar que se trata dc 
un puuto lo bast ante dclicado conio 
para hacer un alto c ir eu busca de un 
problema dislintc, pero recuerda que 
lu micro no se vc afeetado par esa 
elase de barren* mental que hace que 
un cerebro humano aproveche la me- 
nor oportunidad para saltr de la pe- 
sad ilia. De hccko, hay una t^cnica de 
program acidn avanzada que sieve 
para resolver cierlos tipos dc 
problemas que pueden redu- 
cirse a problemas dentro de 
problemas, Dicba teenies r 

se de no min a recursion. 


























































esciida, recursion cs una Llamada pri- 
maria a una submtina o procedi - 
mien to con un eon junto de parame- 
tros In id ales, A cominuacibn. la su- 
brut Ena o procedimiento se llama a si 
mismo rcpcridamente, actualizando 
los para metros en cada llamada, hasta 
que so ha lievado a cabo una deter- 
ininada tarea. 

Para ayudarte a comprender el con- 
cepto basico de recursion, piensa en 
edmti mi conductor puodo viajar dcstle 
el lugar A a I lugar R, a t raves de una 
gran ciudad con la quo no esia lamb 
llarizado, El conductor dispone de 
mapas con las calles de la ciudad, pero 
observa quo viajar d inert amen le de A 
a B esdemasiado dtffcil. Por tanto, de¬ 
cide descomponer el problems en tin 


cierto numcro de problemas si mi lares 
(pero mucho ituis simpics), cada uno 
de los cuafes puede irse resolviendo 
succsivamcnic. El mode mas sendllo 
de hacerlo consists cn seleccionar un 
lugar (C), que se encuentre enire A y 

B, y decidircdmo viajar desdc A hasta 

C. A corn inn ad bn conduce su coehc 

hasta C. 

Una vea en C, el conductor mira si 
puede viajar dlrcciamenre desdc C 
hasta B. Si es posibte, lo hacc. En caso 
oontrario, re pile el proceso anterior 
eligiendo un nuevo lugar (D), entre C 
y B, fcislc proceso se repite hasta que 
el conductor llcga a B. su pun to de 
destino, 

Estc ejemplo simple de times Era ade- 
cu ad a men le los principios da la recur¬ 


sion tal come sc aplican a la progra- 
mucion de ordenadores. 

A medida que se akan/u cada snb- 
tarea (o ntvel) de la recursi6n, result® 
a me undo necesario almaccnar la in¬ 
form acton relative a la position ante¬ 
rior, Eilcan/adu cn el ntvel precedente, 
para volver mils add a cue a cl la, A mo¬ 
di da que se entra eu cada nivcl, sc ob- 
ficne tin con junto de parametros dis¬ 
tune y sc cfoctua una comprobacibn 
para determitiar si sc ha rcaltzado la 
tarea complete, Sin dlcha com proba ¬ 
tion, el proceso no term inaria niinca. 
Para ver el metodo utilizado, intro¬ 
duce y ejecuta el primer programs, 
que i m prime Eos enter os posit ivos 
desdc tin valor de entrada (N) hasta 
uno. 



^r- 1 X W\L J* ^ 


20 PRINT INVERSE 1;TAB I;" 
ENTERGS POSIT!VOS DESDE 
N A 1 " 

30 INPUT "ENTRA EL ENTERG 
QUE QUIERES 

DESCONTAR DE (0 HASTA EL 
FINAL) ”;N: LET N = INT N; IF 
N<1 THEN STOP 
40 GO SUB 30 
50 GO TO 30 
80 IF N-0 THEN RETURN 
90 PRINT ; N;" 

100 LET N — N — 1: GO SUB 30 
110 RETURN 

HI program® te pcrmiic Introducirel 





















































valor del mayor enlero a parti r del 
cun I deseas contar, Si introduces mn 
valor mcnorde uno, sc deliene el pro- 
grama. Lei linea 40 llama la subrutina 
recursive, cuya primera lines com- 
prueba si se ha completado la larea 
enters, 

Picha comprobscidh cs crucial para 
ter miliar las llatnadas recursivas. Sc 
cultra en cl primer nivel dc recursion 
con el valor dc N que hasespccificadQ. 

Dicho valor se ini prime en la If lie a 
90. Se entra en el segundo nivd en la 
linea 100. que reduce el valor dc N en 
uno y llama Ili subrutina otra vez con 
el imevo valor de N. El program a con- 
tin da el bucle entre las line as HO v 100, 
imprimicndcj sueesivaniente cad a cn- 
tero, 

Cuando N r se reduce a 0 (en la li¬ 
nes 100), cl programs bifurca del 
modo habitual a la linea SO 
cn do lid c esla vez debera 
obcdccer la instruction 
RETURN. Esto pro- 
voca un retorno desde 
la subrutina llainada 
en la linea 100. La si¬ 
gn i cute instriiecidn 
se enenentra en la 
linea 110, que provoca un rc 
to mo desde la subruiina llamada en la 
tinea 40. La mstmedbn siguieme (li¬ 
ne a 50) cjccuta dc nuevo cl program a. 

Observa que el programs termina 
con un valor de N=0, segiin la linea 
100, pero que In linea 90 no imp rime 
itunca diclio valor. Para restaurarN al 
ultimo valor impreso, puedes tcclear 
LET N=N+ 1 como linea 105. A con- 
tinuaridn, N toniara cl ultimo valor 
impreso, 

10 DIM N134): DIM A(34> 

20 CLS 

30 PRINT TAB 5; INVERSE 1; 
"CALCULQ DE 
FACTGRIALES" 

40 INPUT "ENTRA EL NUMERO 
FACTORIAL QUE QUIERES 
(1-33, 0 0 PARA 
TERMINAR) r, ;NU 
50 IF NU>33 OR NUolNT 
(NU> OR NU<0 THEN RUN 
60 IF NU^0 THEN STOP 
70 LET LE = 1: LET N(LE)=NU: 


LET AN = NU 
GO SUB 150 
90 PRINT AN;"! = PRI 

: GO TO 40 

150 IF N(LE)=0 TH EN LET 
A(LE) = 1: GO TO 180 
LET LE = LE+1: LET 
N(LEJ—N[LE —1)— 1; GO 
SUB 150 

LET LE = LE-li LET 
A(LE) = A(LE + 1)"N(LE) 
RETURN 


160 


170 


130 


Ejecuta el programs e introduce un 
valor en respuesta a I mensajc- HI pro¬ 
grama calcula c irn prime el factorial 
del niimero que hay as introduddo. es 
decir el producto dc cuds emero desde 
uno hasta cl propio numero inclusive. 
Por ejemplo, 5 factorial (que sc es¬ 
cribe 5!) es 1x2x3x4X5=120, 

El program ei dimension a variables 
(linea 1CJ) en numero suficiente para 
completar la tarea, Dichas variables 
de matriz reservan espacio de memo- 
riu para su uso exclusive, ublizaitdo el 
nivel de recursion (LE) como sub In- 
dice de la variable que se cste utili- 
/.an do cn esc momento, N(LE). 

Esendalmente, cl programa cm- 
piezEi en la linea 70. en dondc el nivel 
sc pone cn uno. Adem^s, aqui se 
a sign ei cl niimero que hay as introdu- 
cido + por ejemplo einco, a N(l) y a 
AN (la variable que acumula la res- 
puesia). A coniinuacibn, la tinea 8(1 
llama al primer nivel de recursion. La 
primera linea dc la ruiina de recursion 


(linea 150) compmeba si se ha llcgado 
al final del problems, cuando 
N(LE)-I)- Peru, por el momento, 
N(LE) es einco, por lo que el control 
pasa a la linea 160. Esta incrementa el 
nivel (a dos), pone en 4 el numero ac¬ 
tual, luego llama dc nuevo la rutina re¬ 
curs! va y asf sucesivamente. Cuando la 
linea 160 incrementa cl ni^cl^t seis y 
decrements el niimero actual a cero. 
la linea 150 detect a que N(6) es cero, 
por lo que el elcmcnto seis de la ma¬ 
triz A sc pone a uno y la linea 180 en- 


INPUT 19 















via un RETURN al final de la lines 
160. A hora cl control pSSa a la Hnea 
170, en dondc cl nivel se decrements 
a oinco y A(5) toma un valor igual a 
A(6) voces N(5). Lslo hacc que A(5) 
sea igual a 1x1 = 1 , Ahora la lane a ISO 


consists en ut Ildar datos de coin pro- 
had on de los que cstds seguro, Un 
mdtodo simple consiste en comiderar 
una subrut ina recursive como si In era 
un grupo de copias si mil a res de la 
misma subrutina. 


dcvLcIve tic nuevo el control al final 
de la Itnea 150 en donde, esta vez, 
A(4) to ma an valor igual a A(5) voces 
N(4). For !o que A(4) es igual a uno 
(calculado antes) por 2. Este bude se 
con li mi a tantas veccs COmO sc hay a 
1 tain ado el GOSUtS de la tinea 160. 


G'uando eserihas este lipo dc suhru- 
tinas, empieza siempre por utia com- 
probacidn de salida efectiva, Dtcha 
cornprobacidn se utiliza para decidir si 
el problems (tal como viene determi- 
nado por los pnrainetros, de entrada) 
puede re so I verse dir ctl amen tc, si:i nc* 



3Eos. Siguiendo este meiodo. deberms 
scr capaz dc programar alguna de las 
utilidades practieas dc La recursion. 
Vcanios a cominuacidn un ejemplo de 
edmo la recursion puede mejorar cn 


Cuando se completu el bucle, LE cs 
igual a uno y el ultimo RETURN va a 
la tfnea 80. La instruction siguieme 
(Inieti 90) imprime cl rcsultado, 120. 

Pnra mantener tu programa denim 
de Los [iniitcs del micro y evitar eat as¬ 
tro fes, debes saber c6mo sc com porta 
en ct nivel mas bajo dc recursion, lla- 
bitualmente. el ilnico medio dc estar 
seguro dc que fundona correct amen te 


ccsidad dc subdivision. 

Antes dc que cmpieces a progni- 
inar, planca lo que quiergs conscguir 
con la subrutina. A continuation, 
cuando estes escribiendo et program a, 
no te preocupca demasiado por la se- 
cuentia exacta de ejecucion. y consi¬ 
der a cn cumbio Los dos prlneipios, prin- 
ci pales, la condition de parnda y la 
subdivision cn problem els mas scnci- 


gran medida la claridad y la eficientia 
de un program ei dc orde nation, 

10 BORDER 1; INK 7: PAPER h 
CLS 

20 PRINT TAB 6; INVERSE lj” 
CLAS1FICAC10N RAP I DA " 

30 INPUT "CUANTOS NUMEROS 
DESEAS CLAS3FICAR 
(1-1000) ”;A 

40 IF A< 1 OR A> 1000 THEN 
GO TO 10 

50 DIM A(A): DIM Rf2-bSQR (AH 
60 LET A(A) = 100; PRINT 
INVERSE ir'TABLA NO 
CLASIFICADA: FOR K=1 

TO A-1: LET A(K) = I NT 
(RND*99): PRINT A(K);' 1 
NEXT K 

70 LET L— 1: LET LV=1- LET 
R=A-1; GO SUB 1000 
80 PRINT INVERSE l; r "TABLA 
CLASIFICADA;-"”; FOR K=1 
TO A— 1: PRINT AIK);” 

N EXT K 

90 IF INKEY$<>" ” THEN GO 









































TO 90 
100 RUN 

1000 IF R>L THEN LET l = L: 

LET J=R + 1: LET V=A(L): 
GO TO 1010 
1005 RETURN 
1010 LET I~I +1: IF A(I)<V 
THEN GO TO 1010 
1020 LET J=J- X; IF A(J)>V 
THEN GO TO 1020 
1030 IF J>=l THEN LET T=A(I): 
LET A(l)=A{j): LET 
A(J)=T: GO TO 1010 
1040 LET T=A(L): LET 

A{U = A[J); LET A(J)=T 
1050 LET R(LV)-R: LET 

LV = LV+ 11 LET R=J-L 
GO SUB 1000 
10G0 LET LV-LV-1: LET 
R = R<LV), LET L=l; GO 
SUB 1000 
1070 RETURN 

El programa te permite introducir la 
can Li dad de nuitlt ros alcatorios que 
deseas ordenar. La linea 50 dimen- 
siona una matriz A(A) S para almace- 
nar dichos niimeros, y otra matrix K, 
para ylmacenar I us- variables para las 
ilamadas reeursivas. La linea 60 ge¬ 
nera e ini prime Eos niimeros alealarios 
dcsordcnados, micntras cjLie la linea 
70 llama la submtina recursive que los 
pone por ordert aseendente, La linea 
SO ini prime la tabla de niimeros. 

El metodo utiliza algunos aspcctos 
dc la ititercalaciOn dc Jistas a parlir de 
dos subconjuntos y algunos aspectos 
do la OrdcnUcibn de sublistas. La lista 
principal se divide en dos suboonjun¬ 
tos (lincus ]()]() y 1020). Observe la 
comprobacibn de salida crucial (linea 
1000) para determiner cuando dcbe 
lerminar la recursion. Cada uno de las 
dos subconjuntos seordena en una pa- 
sad a (tinea 1030). Vuelven a dividirse 
los subcon j untOS, pero dos de el los se 
juman formando uno de los nuevos 
subconjuntos y. a coniinuucibn, cada 
uno de dichos nuevos subconjuntos se 
ordena en la pasada siguienie, Luego 
ta subrutina sc llama a sf niisnu (linea 
1050) repel id amen te liusta completar 
ta ordenacidn. 

Ann que esic metodo dc ordenaeidn 


en BASIC no es tan rapido como en 
codigo mSquina, es ex etc mid amen te 
rapido. For cjcnplo. para ordenar 100 
va lores tarda a I rede dor de 40 segun- 
dos. U iia rutina de ordenaeldn tradi- 
c ion a I similar duraria casi una hora. 

La utilidad de la recursion Jlega mas 
alia del calculo de factoriales y de 
otras aplieaciones nudematicas. La re¬ 
cursion puede ser extremadamente 
util en program as de juegos y para ge- 
nerar figuras grftficas complicadas. 
Tambien puede aplicarse esta teenica 
a la inteligcncia artificial (AI - Artifi¬ 
cial Intelligence)* por ejempio tanto 
en control de robots como en progra- 
mus de juegos. Melodos si in i lares se 
utilizan tambien en el proceso de len- 
guajes (compil adores e interpreics). 

En el ajcdrev. y en los program as de 
estrategia se utiliza la recursion. Intro¬ 
duce d siguicnte programa para ver 
una i lustration simple de die ha apli- 
cacibn en el problem a clisico de las 
Torres de Hanoi. 

10 BORDER 6: PAPER 6; INK 0: 
CLS 

20 PRINT TAB 3? INVERSE 1;“ 
TORRES DE HANOI " 

30 INPUT "ENTRA NUMERO DE 
ANILLOS (2-91 "-N: IF N<2 
OR N>9 THEN GO TO 30 

35 DIM T{3) 

36 LET A$="i*"i INK 2: FOR 
M=21 TO 21-N STEP -h 
PRINT AT M,7;A$iAT M,15; 
A$;ATM,23;A$: NEXT M: INK0 

37 PRINT INK 2;AT 21 l 7;"ll»”; 
AT 21,15;AT 2l„33; 

38 FOR M = 1 TO N; PRINT INK 
7\ PAPER 0;AT 20~T(1),8; 
N+l-M: LET T{1)=T(1)+1: 
NEXT M 

39 PRINT #1 : AT 0 P 5;"UNA 
TEC LA PARACOMENZAR" 

40 PAUSE 0: PRINT #l;AT0 r 8; 

45 LET TT=2: LET TF=1: LET 
R=3 

50 GO SUB 90 

70 PRINT AT 10,5;”TOTAL DE 
MOVIMIENTOS— ”;2* N-l 
80 STOP 


90 IF N = 0 THEN RETURN 
100 LET N-N-l: LET W=R; 

LET R = TT: LET TT=W: GO 
SUB 90- LET W=R: LET 
R=TT: LET TT=W 
110 GO SUB 200 
120 LET W = R; LET R-TF: LET 
TF= W; GO SUB 90: LET 
W=R; LET R-TF: LET TF=W 
130 LET N=N + 1: RETURN 
200 PRINT AT 20-(T{TF)“l), 
TF*3;" "j INVERSE I ; AT 
20-(T(TT)) p TT*8tN+lt LET 
T(TF}=T(TF)-1; LET 
T£TT)=T(TT)-H 
210 BEEP .0I,TT*Tnrr2 
220 RETURN 

FI problem a traditional eonsta de 
tres palos montados sobre una super- 
ficie. En el primer palo se ensurtan un 
cierto nuincro de discos de dinmelro 
variable, LI objeto consiste en trans¬ 
fer! r la pi la de discos de imo a otro 
palo. Los discos puede n mo verse solo 
de uno eii uno y ningun disco puede 
quedar ntmea sobre otro mcnor que 
eL LI tercer palo se utiliza como lugar 
de pa so anientras se mu even los discos. 
La version para ordenador da una re- 
prescntacidn grafica del problem a. 
Ejecuta el programa e introduce el nu 
merit de discos que descas mane jar. 
La transferencia de discos es rapid a, 
por Jo que no seras capaz tie seguir 
cada movimiento a menus que modi- 
fiques ei programa para retardarlo del 
modo siguiente. Inscrta esta linea: 

215 PAUSE 0. 

Lslt cambio hace que el programa 
se ejecule solo a I pulsar una tecta. 

Ft programa que resue I ve cl pro¬ 
blems esta mejor plantcado para uti- 
lizar la recursion. El formato cs simi¬ 
lar al de los program as anieriorcs, La 
subrut in a recursiva imprime sucesiva- 
me me cada movimiento de uno a otro 
palo hast ei que se complcla el pro¬ 
blem a. El numero total de movimien- 
los efectuados sc ealcuLi y sc visualiza 
dc spues de cada jugada. 

For tanto, para problcmas alta- 
me me complicados que requieran sub- 
divtsii'm, la recursion a menudo es el 
mejor metodo de programacibn, 


INPUT 21 







ROMPECABEZAS 
DE CUBOS Y NUMEROS 


Luesta ueasibnos presentamos un ori¬ 
ginal jueKO dp ingenio emiadn pur uno 
dp vosotms. El Objelivo u itk'unzar cs cl 
de culocareii los nueve cuadrados tit' un 
lado de uti cubo I m ntiitieros del I at 9, 
q lie no se piled u n re pell r, de mu n era q u e 
Ea suiua de cada flla y dc caria columns 
coi ncida con la can (id ad q u e figu ra u n d 
extremu de cada una de las respectivas 
direcdones, 

Esta cartidad a obtener vari'a tn 
cada pariida quc juegues, 

Primero sc colocan los nueve nu- 
tneros, para So quc pulsars la tecla del 
numero correspond iente y cste apa- 
recerS cn cl lugar que estaba el inte- 
rrogante. Despuds pucdes; interca m- 
biar los numeros de dos en dos., invir- 
tiendo Su position respective. 

Cuando en alguna de las dlrecciones 
sumen la canlidad pcdida T ta pantalla 
le lo senalara mediante un parpadco 
en forma dc flash. 

Si, por cl eontrarlo, no eonsigues 
encontrar la soludom el ordenador te 
la mostrara con tart sblo apretar la te- 
da En cualquier caso, esio no se¬ 
cede ra hssla que no hayas elect uado 
un min Lino de dlcz movirnicnios, 

El orderador no ad mi lira jugadas 
cn las quc introduzcas dos niimeros 
iguales y tc avisara dc tu error. Tam- 
poco con temp] a ra la posibilidad dc 
utilizar tecias quc no formed parte de 
los mandos del juego. 

Los niimeros dc 1 a 8 que en el lis- 
tado tengan nil guidn en Ea parte su¬ 
perior han de tedearse en modo gra- 
fieo y pulsando el numero que se in- 
el ica. Eji cuanto a los numeros. dc 1 a 
8 ton guirin en la parte inferior, han 
de tedearse en modo grafico y pul- 
sando las ted as SYMBOL SHIFT y el 
ntimero que sc indica. 

1 CLEAR 60000 
3 BORDER 5: PAPER 5: INK 1; 
BRIGHT 0: FLASH 0: CL5 ; 





22 INPUT 









m 

UN JUEGO DE INGENIO 

m 

UN PAR FADED 

m 

NUEVE NUMEROS 


EN FORMA DE FLASH 


Y NUEVE CUADRADOS 

■ 

NO INTRODUCE 

■ 

EL ORDENADGR CONOCE 


NUMEROS IGUALES 


LA SOLUCION 

■ 

EL LI ST ADD COMPLETO 



PRINT AT 12,8; PAPER 7; 
FLASH l; hr ESPERA, POR 
FAVOR" 

5 POKE 23658,8: GO SUB 
9550: GO SUB 9800: GO 
SUB 5000 

25 REM OIBUJO DE LOS 
NUMEROS* 

30 DIM N$(40 r 2): LET 

NSU)="7”: LET N$l2) = ’'5": 
LET N$(3J = ”5": LET 
N$(4)="5" 

35 LET N${5) = ”33”: LET 
N$(6H rr 32”: LET 
N$(7)="5"; LET N${8)=”33 r 

40 LET N${9)_=”33 rr : LET 
N$(10) = "42": LET 
N$( 11)—"5”: LET 
N${12 )- u 15 n 

45 LET N$(13)="7' r j LET 
N$U4) = ' :, 54”i LET 
N$C15)="37 SS : LET 
N$[16)= ,, T" 

50 LET N$(17}="33' J : LET 
N$(18) = ,P 13”: LET 
N${19)="5": LET 
N${20) = "33" 

55 LET N$t21) = "33": LET 
N$(22)="Z3”: LET 
N$(23)="55": LET 
N$(24}= fl 33" 

60 LET N${25) = "33 rr ; LET 
N$(26)="£”: LET 
N$(27) = ' P 42 ,J : LET 
N$(28) = ”L" 

65 LET N${29M H 33LET 
N$f30) = "i2": LET 
N$(31) = "55'L LET 
N${32) = ”§3" 

70 LET N$(33)^"33 , L LET 
N$(34)="|5”: LET 
N${35)= ff 37"; LET 
N${36)="33” 

75 LET N$(37)= ,p 33": LET 
N${38)="52”: LET 


N$(39)= PP 5 PP : LET 

N${40)="2 M 

100 REM PRESENTACfOM 
110 BORDER 3: PAPER 3: INK 
0: BRIGHT 0: CLS 
120 PRINT AT 0,0: PAPER 0: 

INK 7: FLASH 1; PP S66666 6 
66666666666666666666 
66666 ” 

130 FOR N-l TO 21: PRINT AT 
N,0] PAPER 0; FLASH I; 

INK 7;”6”;AT N,3l; n 6 IJ ; 
NEXT N 

150 PRINT AT 6^8: PAPER 7: " 

43Z7ZZZ43":AT 7,8: IJ 

63 554 6 555":AT 8.8; N 

33 26 325 5435";AT 9,8; " 
";AT 10,8; 

536433 ,, :AT 11,8; 

5 553; AT 12,8; 

132 33" 

160 PRINT AT 13,8; PAPER 7; " 
377733 ?3?37":AT 14.8: " 
55513 55553": AT 15,8; " 

137535135535335”; AT 
16 r 8; 

33 

170 INK 6 

180 FOR N=0 TO 14 STEP 2: 
PLOT 64 + N, 128+ N: DRAW 
120,0: DRAW 0,-88: NEXT 
N 

200 FOR N-0 TO 30 STEP 2: 

BEEP .l.N+25: NEXT N 
240 PRINT AT 19,1; PAPER 7; 
INK 1; FLASH 1; M MARIA 
LUISA CUERVO HERRERO " 
250 PRINT AT 21,1; PAPER 1: 
INK 6; FLASH 1;" 
INSTRUCCIONES 0 JUGAR ? 

m" 

260 PAUSE 0: LET 0$=INKEY$: 
If 0$ = "i" OR 0$ = "i" THEN 
GO TO 300 

270 IF 05-"J" OR 0$=T 


INPUT 23 










































THEN GO TO 610 
280 GO TO 260 
300 REM INSTRUCCION.ES 
310 PAPER 5: INK 1: BORDER 
5; BRIGHT 0: CLS 
330 PRINT AT 1,10; PAPER 0; 
INK 4 f FLASH 1; 
"INSTRUCCIQNES 11 
350 PRINT AT 3 r 0;"COLOCA LOS 
9 NUMERGS (DI3TINT0S Y 
DEL 1 AL 9] DE FORMA 
QUE CADA FILA 
(HORIZONTAL VERTICAL Y 
DlA-GONAL) SUME LA 


QUE quieras po- ner en 

EL LUGAR DEL SIGNQ DE 
JN -TERROGACiON 7' 

370 PRINT "LUEGG 
INTERCAMBIA LOS 
N U MEROS DE2 EN 2, 
INDICANDO LOS QUE 
QUIERAS CAM8IAR .UNA 
LUZ INTERMlTENTE INDlCA 
LA DIRECCION CUVOS 
NUME- ROS SUMAN EL 
VALOR ADJUNTO." 

380 PRINT "SI TE 
DESESPERAS, 


CANT1 DAD QUE SE INDlCA 
AL LADO DE DICHA FILA 
360 PRINT "PRIMERO SlTUA 
LOS 9 NUMEROS, 
PUL-SANDO EL NUMERO 


PULSA""S"”(CUAN - DO 
APAREZCA EL MENSAJE 
OPORTUNO) Y... VERAS LA 
SQLUCION," 

460 PRINT AT 21,13; PAPER 0; 
INK 4; FLASH l f rr PULSAC" 



460 PAUSE 0: IF INKEYS <>"C H 


AND INKEY$O r, c" THEN 
GO TO 460 
470 GO TO 100 
610 CLS : RANDOMIZE 
620 REM PREPARAR UNA SERlE 
DtSTINTA 

630 DIM R(9): DIM SC9): DIM 
T(8) 

640 FOR N-1 TO 9 
650 LET R = 1 + INT (9*RND)r JF 
R<R) THEN GO TO 650 
660 LET R(R) = R; LET S(N) = R ; 
NEXT N 

670 FOR N-l TO 3: LET 

T(N)=S(3*N—2)+S(3*N —1} 
+ S(3*N): NEXT N 
675 FOR N= 1 TO 3i LET 

T[N+3)-S{N) + S{N+3)+S 
(N + 6); NEXT N 

680 LET T(7) = S(1 }+S(5) + S(9): 

LET T(S) = S(3) + $f5) + S(7) 
750 REM DIBUJO DEL TABLERO 
760 PAPER 0* INK 6: BORDER 
0: BRIGHT 1; CLS 
780 FOR X=0 TO 10 STEP 5 
790 FOR M—0 TO 10 STEP 5: 

FOR N-0 TO 3 

800 PRINT AT 2 + N+X,3+M; 
"8888" 

810 NEXT N: BEEP .2, 

30 + RND*20: NEXT M: 

NEXT X 

850 FOR M = 0 TO 40 STEP 40: 

FOR N=0 TO 7 STEP 2 
860 PLOT 24 + N + M, 160+N: 
DRAW 32,0: DRAW 0,-32: 
DRAW 7-N,0 

880 PLOT 32 + N + M.168 + N: 
DRAW 32,0: DRAW 0,-8; 
NEXT N: NEXT M 
900 FOR N = 0 TO 15 STEP 2; 
PLOT 104+N, 160+N: 

DRAW 32,0: DRAW 0,-32: 
NEXT N 

910 FOR N-0 TO 7 STEP 2; 

PLOT 24+ N, 120+ N; DRAW 
32,0: DRAW 0,-32: DRAW 
7 — N,0: NEXT N 
920 FOR N = 0 TO 7 STEP 2: 

PLOT 64+ N r 127: DRAW 0, 
N-7: DRAW 32,0: DRAW 0, 
-32: DRAW 7-N r 0; NEXT N 

















930 FOR N-0 TO 7 STEP 2: 

PLOT 104 + M, 127: DRAW 0, 
N —7: DRAW 32,0: DRAW 0, 
—32: DRAW 7-N,0: PLOT 
136 + N, 1 28 + N: DRAW 8,0: 
DRAW 0 r ~32; NEXT N 
950 FOR N=0 TO 7 STEP 2. 
PLOT 24+N,80+N: DRAW 
32,0: DRAW 0,-32: NEXT 
N 

960 FOR N-0 TO 7 STEP 2: 
PLOT 64+N,87: DRAW 0, 
N-7: DRAW 32,0: DRAW 0, 
“32: NEXT N 

970 FOR N=0 TO 7 STEP 2: 
PLOT 104 + N.87: DRAW 0, 
N-7: DRAW 32,0: DRAW 0 f 
“32: PLOT 136+ N,88 + N: 
DRAW 3,0: DRAW 0,-32: 
NEXT N 

980 FOR N-20 TO 60 STEP 3: 

BEEP ,1.N: NEXT N 
982 FOR N = 1 TO 3: PRINT AT 
5*N^2,0; INK 7;T(N): IF 
T{N)<10 THEN PRINT AT 
5*N-2,0; INK If " ; TfN) 
984 NEXT N: FOR N = 1 TO 3: 
PRINT AT 17,5*N — 1 : INK 
7;T(N+3): NEXT N 
987 PRINT AT 17,17; INK 7; 
TUh IF T{7)< 10 THEN 
PRINT AT 17,17; INK 7; ,J 
T(7) 

990 PRINT AT 17,0; INK 7;T(8): 
IF T(8)<10 THEN PRINT AT 
17,0; INK 7;" ";T(8) 

1000 PRINT AT 4,21; PAPER 5; 
INK l f r 'JUGADA:”;AT 11, 
22; PAPER 4; INK 0; 
"NUMEROS";AT 12,20; 
"’DISPGNIBLES:" 

1020 FOR X=1 TO 9; PRINT AT 
14+1 NT ((X-1V5)*2, 
21+INT «X— 1J/5H-CX—IINTT 
((X—1)*2; PAPER 
4; INK 0;X: 8EEP ,02, 

35 + 20"RND; NEXT X 
1025 PRINT AT 16,2; INK 5;” 
65556";AT 3,2; f '3";AT 
8,2; 3;AT 13,2;”3” 

1030 BEEP 1,40 

1100 REM COLOCAR LOS 9 


NUMEROS 
1110 DIM N(91 

1150 FOR N = 1 TO 9: BEEP .2, 
30 + 30 pr RND 

1160 PRINT AT 20,7; PAPER 3; 
INK 6;"NUMER0 ?-:" 3 AT 
4,28; PAPER 5; INK l f N 
1180 FOR X=0 TO 3: PRINT AT 
2+X+INT ((N-I)/3)*5, 
(N-INT 

((N— 1 }/3)*3)*5—2; FLASH 
1; PAPER 5; INK l;' 1 H f 
N$(37 + X);” ”: NEXT X 
1200 PAUSE 0: LET 

AS-iNKEY$; IF CODE 
A$>57 OR CODE A$<49 
THEN GOTO 1200 
1210 LET A-CODE A$-48 
1215 BEEP .1,28: PRINT AT 20, 
17; PAPER 3; INK 6 ; A: 
FOR M = 1 TO N-l 
1220 IF N(M)=A THEN PRINT 
AT 21,4; PAPER 7; INK 2; 
FLASH lF'YA ESTA 
COLOCADO”; BEEP .7,35: 
PAUSE 60: BEEP .5,48: 
PRINT AT 21,4; INK 0f 
838 88388888888888 "; 

AT 2ft 17;"8": BEEP ,2, 
23: GO TO 1200 
1230 NEXT M: LET N(N)=A 
1250 FOR X=0 TO 3: PRI NT AT 
2+X+INT ([N-1 )/3)*5, 
(N-INT 

({N —1}/3)*3)*5—2; PAPER 
6; INK 2;" 

N$(A*4-3+Xl; r ' NEXT X 
1270 BEEP .3 r 30+30*RND: 
PRINT AT 14 + INT 
«A-1)/5)*2,21 + INT 
((A-l)/5)+(A-INT 
((A-l)/5)*5—1T2; INK 0; 

3? pr 

1290 PRINT AT 20,7; INK 0 ; ,r 

88888888883 ” 

1300 NEXT N 

1320 PRINT AT 11,22; INK 0;" 
8SS888 3 H :AT 12,20; 
rh 888SS8888888 
1330 LET KK = 9 
1500 REM COMPRQBAC1GN 
1520 DIM 0(8) 


1536 FOR N = 1 TO 3: IF 

N(3*N-2) + N{3*N-1) + 
N(3*N)=T{N) THEN PRINT 
AT 5*N —2,2; INK 4; 

FLASH 1;” LET C(N)“1 
1540 NEXT N: FOR N-l TO 3: 

IF N(N} + N(3 + N) + 

N(N + 6)-T(N + 3) THEN 
PRINT AT 16,5*N — 1; INK 
4; FLASH If n : LET 
C(N + 3)= 1 
1550 NEXT N: IF 

N( 1) + N(5) + N(9)=T(7) 
THEN PRINT AT 16,17; 
INK 4; FLASH I;” ,f : LET 
C(7)= 1 

1560 IF N(3)+N(5) + N(7)=T(8) 
THEN PRINT AT 16,2; INK 
4; FLASH If LET 
C(S>=1 

1650 FOR N = 1 TO 3: IF C(N)=0 
THEN GO TO 1700 
1660 NEXT N: GO TO 3500 
1700 REM INTERCAMBIAR 2 
NUMEROS 

1710 LET KK-KK+1: PRINT AT 
4,28; PARER 5: INK 1;KK 
1720 BEEP .2,25 + 25*RNDl 

PRINT AT 20,0; PAPER 7; 
INK 1 ;"CUALES 
INTERCAMBIARAS ?-:” 
1730 PRINT AT 3,21: PAPER 3; 
INK 7; FLASH 1;”PU13A 
S,Y";AT 9,21; ,r VERAS LA 
";AT 10,21 ,"SOLUCION." 
1750 PAUSE 0; LET 

H$ = INKEY$: IF H$=”S” 
OR H$ = "s" THEN GO TO 
4000 

1755 IF CODE H$<49 OR CODE 
H$>57 THEN GO TO 1750 
1760 LET H=CQDE HS-48: 

BEEP ,1,30: PRINT AT 20, 
25; PAPER 7: INK 1;HS; 

AT 20,27 i 11 Y n 
1790 PAUSE 0; LET 

G$ = INKEYS: IF G$-”S rp 
OR G$-"s” THEN GO TO 
4000 

1795 IF CODE G$<49 OR CODE 
G$>57 THEN GO TO 1790 
1800 LET G-CODE G$-43: 


INPUT 25 















BEEP -1,45: PRINT AT 20, 
29; PAPER 7; INK 1 ; G$ 
1820 IF H-G THEN PRINT AT 
21,6; PAPER 5; INK 2;"TE 
HAS COMFUNDIDO”; BEEP 
,5,35: PAUSE 60; BEEP 
,4,50; BEEP .3,45: PRINT 
AT 20,25; INK 0;"8S888' r ; 
AT 21,6;"888888888888 
833888 ": GO TO 1750 
1830 PRINT AT 8,21; INK 0; M S3 
SS 8SS88 '';AT 9.21: M 8888 
8BSS8 ":AT 1Q,21: M 8888 
88888 " 

1840 PRINT AT 16,2; INK 5; 

"655586 ";AT 3 i 2; ,, 3 1J ;AT 
& 5 2;"3";AT I3 ( 2; lf 3" 

1SS0 FOR N-1 TO 9: IF N(N) = H 
THEN LET J = N 

1890 IF N(N}=G THEN LET F=N 
1900 NEXTN 

1910 FOR X=0 TO 3: PRINT AT 
2+X+INT (<F—lV3)*5 r 
(F-1NT {(F-l)/3)*3)*5-2; 
PAPER 6; INK 2 ," 


N$(H*4-3+X);” B : NEXT X 
1920 BEEP ,2,25 + 30*RND: 

FOR X=0 TO 3; PRINT AT 
2+X+INT 

(J-INT (tJ-l)/3)"3>*5-2j 
PAPER 6; INK 2;" 

N${G*4- 3 + X); ls NEXT X 
1930 BEEP ,2,25+30*RND: 

PRINT AT 20,0; INK 0; r, 8S 
8888 888888883888888 

888888888 " 

1940 LET N(J] = G; LET N(F)=H 
1950 GO TO 1500 
3500 REM FINALIZACIQN 
3520 PRINT AT 16,21; PAPER 
2; INK 7; FLASH lj 
"C0RRECTO!!"; FOR N = 0 
TO 28 STEP 2; BEEP .1, 
20+N: NEXT N 
3525 PRINT AT 20,0;" 

■ i 

3530 FOR N = 1 TO 7; 

RANDOMIZE USR 63001; 
BEEP ,03,20+3*N: NEXT 
N: PRINT AT 21,2; PAPER 


5; INK 1; FLASH l/'PARA 
JUGAR OTRA VEZ, PULSA 
Y" 

3550 PAUSE 0: IF 

INKEY$o r 'Y" AND 
INKEY$<>"y" THEN GO 
TO 3550 

3560 GOTO 100 

4000 REM VISUALIZAR LA 
SOLUCION 

4010 PRINT AT 20,0 ; M 

i- p 

4020 FOR N =0 TO 7: PRINT AT 
8+JM,2l5" 11 ; NEXT N 

4025 PRINT AT 6,22; PAPER 7; 
INK 2 ; FLASH 1; 
"SOLUCION” 

4030 INK 4: PAPER 7: PRINT AT 
9,22; "4333337”; AT 15, 
22;" 1333332 IJ ; FOR 
N = 10 TO 14: PRINT AT N, 
22;"5 5 M : NEXT N 

4050 FOR N=51 TO 99 STEP 
16: PLOT 180 r N: DRAW 
47,0: DRAW 0,1: DRAW 


26 INPUT 





































-47,0: NEXT N 


126.0 

9705 

4060 

FOR N -179 TO 227 STEP 

9615 

DATA 0,126.6,126,6,Y. 

97 10 


16: PLOT N,52: DRAW 0, 


126.0' 

9715 


47: DRAW 1,0: DRAW 0, 

9620 

DATA 0,14,22,38,70.126, 



-47: NEXT N 


6,0 

9720 

4070 

FOR N = 0 TO 7 STEP Z. 

9625 

DATA 0,126,96,Y, 126,6. 

9725 


PLOT N + 177,N + 105; 


125,0 



DRAW 56,0: DRAW 0,-56: 

9630 

DATA 0,126,96,126,98, Y, 

9730 


NEXT N 


126,0 


^3- 

o. 

■—1 

^ t 

FOR N=1 TO 9: PRINT AT 

9635 

DATA 0,126,6.6,12.24, 

9735 


10 + INT ((N-1)/3]*2, 


48,0 



2T + (N — INT ttN-1)/ 

9640 

DATA 0,126,98,60,98,Y, 

9740 


3)*3)*2; INK 1 ;SfN): NEXT N 


126.0 


4120 

GO TO 3530 

9645 

DATA 0,126.70,126,6,70, 

9745 

5000 

REM C.M.PARA EL BQRDE 


126.0 

9750 

5020 

RESTORE 5100 

9650 

DATA 0,126.98.126,98,Y, 

9755 

5030 

FOR N = 63001 TO 63017: 


Y.0 

9760 


READ W; POKE N.W: NEXT N 

9655 

DATA 0.126,98,124,93,Y, 

9765 

5040 

RETURN 


126,0 


5100 

DATA 14,255,6,255,120, 

9660 

DATA 0,126,96,Y,Y,Y, 126, 

9770 


211,254,16., 251,13,32, 


0 

9775 


246,62,8,211,254,201 

9665 

DATA 0.126,98, Y,Y,Y, 126, 


9550 

REM C.M.PARA LETRAS 


0 

9800 

9560 

RESTORE 9580 

9670 

DATA 0,126.96,126.96,Y, 

9805 

9570 

FOR N = 65000 TO 65011: 


126,0 


READ U: POKE N,U: NEXT 

9675 

DATA 0,126,96,126,96,Y. 

9810 


N 

9680 

Y,0 

9820 

9575 

RETURN 

DATA 0,126,96.Y,110,98, 

9830 

9580 

DATA 33,0,61,17,0,250, 


126,0 


1,0.3,237,176,201 

9685 

DATA 0,98, Y. 126,98,Y,Y,0 

9840 

9600 

DATA 0,126,98,114,106, 

9690 

DATA 0,24,Y,Y,Y,Y,Y,0 


102,126,0 

9695 

DATA 0,6,Y,Y, Y, 70,126,0 


9605 

DATA 0,56 r 24.Y r Y r Y, 126,0 

9700 

DATA 0,100,Y,126,98,Y,Y, 


9606 

DATA 0,126,6,126,96,Y, 


0 



DATA 0 r 96,Y,Y/Y r 98 P 126,0 
DATA 0,126,106,Y i Y p Y,Y P 0 
DATA 0,122,106,Y,Y f Y r 
110,0 

DATA 0,126,70 r Y r Y,Y, 126,0 
DATA 0,126,98,126,96,Y. 
Y,0 

DATA 0,126,98,Y, 106,Y, 
126,0 

DATA 0,126,98,124,98,Y, 
Y,0 

DATA 0,126,96,126,6,Y, 
126,0 

DATA 0,126,24,Y i Y,Y 1 Y,0 
DATA 0,98,Y,Y,Y,Y, 126,0 
DATA 0,98,Y S Y,Y,52,8,0 
DATA 0,106,Y t Y,Y 1 Y 1 126,0 
DATA 0,66,102,24,Y, 102, 
66,0 

DATA 0,98,V, 126,24,Y t Y,0 
DATA 0,126.6,12.24,48, 
126,0 

REM LETRAS 

POKE 23606,0: POKE 

23607,249 

RANDOMIZE USR 65000 
RESTORE 9600 
FOR X=64128 TO 64207: 
READ Y: POKE X,Y: NEXT X 
FOR X=64264 TO 64471: 
READ Y: POKE X,Y: NEXT X: 
RETURN 

MT Lui&a Cuervo Herrera 



Todo sa compra y se vende. Los antiques zocos fueron 
lugares destrnados a todo tipo de transacciones. INPUT 
tambien dene ei suyo. Vuestras operaciones de compra, 
Cambio o venta saran pubdcadas an asta saccidn, pare? dos 
son las dm itac tones qua imponemos: 

a) La propuesta ten dr a que ver con la microinformStlca. 

b) Nos reservamos e! domedo de no pub!tear aqueHos 
insartos da los qua sa sospacha un trasfondo lucrative. 
Ahota un ruego Tratar de resumir a! maximo el texto; 
escnbff cast come un tele grama siendo cfaros y cone isos. 

























HISTOGRA MS Y 
TARTAS ESTADISTICAS 


Sea uial sea la prucadgncia de lus da¬ 
les —un presupucsto familiar, un pe- 
qucrio negoeid, una aft cm n u los misinus 
mdicadorcsdc <u salutl—. nutaraslq di- 
fercncia si los representas medianle un 
diagram a dg barras o unu larla re- 
donda, 

Ya lias pud id o ver en nucstra re vista 
como sc escribe un programa que vi¬ 
sual! za tus datos cn forma grafica. 
Otra manera de representar la infor¬ 
mation num^rica sen a el diagram a no 
lineal. Las barras (histogram as) y las 
<*Tarla5M estan cut re las rep resent aei fi¬ 
nes inas umpliamente utilizadas de la 
information eomercial y ostadistica, Y 
c s que ofrecen una vent a j a aditional; 
pueden colore arse y adquirir formas 
deslum brant es. 

A parte de esto. cad a diugrnma sc 
adapts purlieu! armentc mejor a un 
tipo de da Los que a otro, Las barms sc 
prestan a scr utilized as para datos que 
fluctuan a lo largo de un amplio aba- 
itico dc valorem- El diagram a cn forma 
de tarta estii indicado en aqudlas oca- 
siones en que te intcrese moslrar Jos 
distintos valorem en proporeidn a la to¬ 
tal] dad: pur ejemplo, si lie ties que 
com pa r a r porccmajes, 

Los programas que siguen ilustran 
la manera de insiruir a iu ordenador 
para que le baga ambos tipos de dia- 
gramas. 


LA RUTINA DE LAS BARRAS 

Esta rutina es, en esencia. la misma 
que la dc cua!quid' grifioo. Una vcy. 
rcunidus los datos, hay que entrarlos 
en la memoria, determinar las coor- 
den ad as, irazar las barras y a nadir los 
textos.. Una de dos: o introduces (IN¬ 
PUT) cad a uuo de los datos y vas tra- 
zando cada barra sob re la mare ha, o 
esperas a tener introducidos todos los 
datos para empezar la larca del ira- 
zado de barras. Eaisic una tercera po- 


sibilidad: leer (READ) los da los y era- 
zar las barras, cambidndolos stem pro 
que desces dibujEir un diagrams dife- 
rentc. Lo que sl que le aconsejamoe es 
que. sea cual sea el metodo a seguir, 
almacenes los datos en una labia de 
variables, porque asi la niaquina ideri- 
tifica faeilmente las coordcnadas de 
cada barra. 


LEER LOS DATOS 

Entra estas Eincasque leen (READ) 
los datos, y ejeciitalas (RUN). Toda- 
via no veris nada en pantalla. pero ha¬ 
ras bien cn ejecutar cada parte del 
programs, para depurar err ores. 

10 LET n-12 
20 DIMa(n) 

70 FOR t=l TO n 
80 READ a[t> 

90 NEXT t 

3010 DATA 3,6 f 5 r 9 p 6 p 3,6,8,3, 
5,9,4 

Esia seccibn del programa selec¬ 
tions un modo que sirva para graficos 
en aquellas maquinas que lo requie- 
ren. Establece el 12 como numero dc 
barras que sc trazaran (linea 10) y di¬ 
me nsion a [a tab la con cste tnismo nu- 
mero (linea 20), Escoge, si quieres, 
otro numero, pero si es uno mayor, no 
olvtdes que has dc tener un ntimero 
equivalent de entradas en la senten- 
eia DATA de la linea 3(IIG, porque dc 
!o contraries te cneon [ranis con cl error 
out of data. Con treeueneia es mejor 
disponer dc mas entradas en la linea 
de DATA cuando se esta oompro- 
bando el programa; de este modo puc- 
des au men tar o disminuir ef mjniero 
de barras a trazar en ta linca 10. sin 
tener que alterar los datos cada vez. 


LAS ESC A LAS 

Ya tiene el ordenador en su poder 
los valores absolutes de cada coorde- 


nada de barra. pero ha bras dc dccirle 
tiquc escala los quiercs rc pro sc niados. 
.Si no sc lo dices, puede que alguuo de 



los datos tc re base la pantalla, mien- 
Iras que los dittos mas pequefios apa- 
reicau en el la como moti tas praciica- 
mcnle invisibles. Para trazar los ejes a 
escala, escribe y eject!la (RUN) las si- 
guientes lineas (dc nuevo, tiazlocomo 
pj'ueba. aunque nada veas todavia cn 
la pantalla). 

30 LET dx=239/n 
40 READ dy 
3000 DATA 18 

Esta parte del programa produce 
una escala para cl eje X dividiendo cl 
area disponible de la pantalla (descon- 
tados los margenes) por cl numero tic 


23 INPUT 






















■ 

COMO SE DIBUJAN LAS BARRAS 

■ 

TOMA DE DATOS 

■ 

LA ESCALA DE LAS C00RDEMA0AS 

■ 

ESTADISTICA EN 3-D 

■ 

EL DIAGRAM A DE TARTA 


Las itneas de la 100 a ta 140 Maman 
las fiti brut in as que dibujsn los ejes y 
I us barras. 


Enlra ahora Ins rulinas que dibitjan 
los ejes y trazan Ins harms: 

1000 PLOT 16,0: DRAW 0,170 
1020 PLOT 16,0: DRAW 235,0 
1030 RETURN 
2000 FOR a=l TO n 
2010 LET $=16 + (a —l)* *dx 
2020 FOR t=S TO s+dx-4 
2030 PLOT t,0: DRAW 0 p a(a) 

*dy 

2040 NEXT t 
2100 NEXT a 
2110 RETURN 


ramaaon 


] .a eseals pars los valores del eje Y 
sc obticnc multiplicandolos por un 
factor, teniendo en enema d espacio 
que nccesitits para el texlo que acom- 
panar£ el grftfico Este valor sc entra 
autom&ticamente, pero cs leido, 
READ (lines 40), dc la scntenda 
DATA (ilnea 3000). En este pnnlo, 
pnede quc le (iente esc rib ir uns breve 
rut in u para enlrur, INPUT, este valor 
en la lines 40. Si snbes como hscerlo, 
bom Is linea 3000: de otra imaners, 
este sera el primer tramo dc datos que 
sent dihujado, en lugar del primer nu~ 
mem contenido en la Ones 3010, 

El reslo del programs comprcnde 
dos rut bias, una para dibujar los ejes 
y otra pars dibujar las barras. Escribe 
esla parte tiel programs, pero no la 
ejecutes (RUN), porque red bifils un 
mensaje de error si d ordenador no 
encuentra las rut in as que hsui sitio lla- 
madas: 

100 GO SUB 1000 
140 GO SUB 2000 
160 STOP 


barras que sc van a irazsr (linea 30). 
El niimcro inaximo de barras posjblc 
depende dc cada ordenador. pero 
puedes deducir el valor que mejorgra- 
fico te ofrece si conoces la estensidn 
dc la patilalla de craficos de tu orde¬ 
nador (la encontrards en el Manual tie] 
Usuario): canribia en tronsonanda el 
valor de N en Is linea 30- 


APARECEN LAS BARRAS 


INPUT 29 























Las tineas dc (a 1000 a la 1020 di- 
bujan los ejes, dejando un margen de 
16 untdades gr allcas a la izquierda del 
eje Y. Para dibujar las barms. la linea 
2LH..i('l estableee un bucle, una vuelta 
por cadn barra, la linea 2010 pone es- 
cala en la coordenada X (*dx) y la tf- 
Elea 2020 cstablece un bade para di- 
bujar las linens verticales que confor- 
man cada barra. El «-4* al final de 
estii line a provoca una pequena sepa- 
radon entre cada harm. para rcalzar 
la legibilidad del grafico. El resio del 
programs se enearga de dibujar las hu¬ 
rras. 


TRES DIMENSIONES 

Cuando executesestc programs, no- 
taras que cl diagram a de barras results 
de una aparienda muy pneo eseolar 
pero que gana en airactivo a cualquier 
representaddn lineal, a pesar de que 
iiinbos se basen en los mismos datos. 
Pues bien. todavia sc puede realzar la 
visualisation de la in formation p re¬ 
sent and o I a en ires dimensiones. Esto 
posibilita un buen uso del color, y una 
fig ura soli da y natural. 

Antes de desarroltar el siguiente 
programa, guard a lo que ya lias escrito 
(para saber lo que liencs) v, sin barer 
tin MEW o un BREAK, introduce los 
siguientes cambios. Debes saber evitar 
Ja-s fad I Ed tides de tu ordenadur para 
hacer los cambios y ahorrarle esfuer- 
kos, pero sobre todo asegurate dc que 
no come res err ores dejnrdo pasar pe- 
queiias difercncias en las lineus. 

No eje cutes el program a ahora, tat 
como esia. puesto que no esui com¬ 
plete y lo linico que vas a conseguir es 
un mensaje de error. Las alierae tones 
que acabas de hacer e stabkeen atgu- 
ntis variables y los comandos ad [do¬ 
nate s para dibujar en la direction Z la 
tercera dimension. 

Para cnmpletar el programa entra a 
cominuaeidn las siguientes Eincas v 
cjecutalo (RUN): 

1010 DRAW 4,4: DRAW 0, 

-170 

2050 PLOT 16-Ha- l)-dx, 
a{a)*dy 

2060 DRAW 4,4 


2070 DRAW dx— 

4,0 

2075 DRAW -4,-4: DRAW 
4,4 

2080 DRAW 0,-a(a)* 

dy 

2090 DRAW -4, 

-4 

Ahora ya debes tencr sobre tu pan¬ 
tail a una esplcndida representacidn en 
tres dimensiones dc lus dates, Els un 
tit it ejereieio cambiar los valores dc los 
coma ndos del color para seleccionar 
aqueltos que a li mas te guslan. Anota 
seguidamente aqucllas li'ncas que h Li¬ 
bras de cambiar para allerar La cseala 
del grafico, de modo que las ten gas 
siempre a mano cuando vayas a uriti- 
zar ei programa en un futuro. La 
forma mas sen cilia de hacer notas es 
mediante sentences REM. Porejem- 
plo. puedes anadir una nueva linea 
que contenga una sentencia REM se- 
guida dc una linea alternative, que in- 
cluye su numem y el comando. 


TARTAS 

Una manera igualmente atractiva 
de re presenter grdficamente la infor- 
myeidn es el diagrams de tarta. Sc 
trata dc un grafico circular domic so 
traxa una hnica coordenada (polar) 
para cad:i tipo de dates. El tamano de 
cada division esta rep resent Lido por un 
angulo. 

En su estructura, el programa que 
dibuja una tarta es tie lo mas sencillo, 
pertj nosotros lo Itemoscomplicado un 
poco para que In puedas utili/.ar eon 
faeilidad. 

Entralo y ejecutalo (RUN) si quie- 
res ver como funciona: 

10 DIM 3(12): LET 
n = 0 
20 CLS 

40 PRINT AT 5,14; 

M MEMU M 

50 PRINT AT 8.10; M 1:METER 
DATA" 

60 PRINT AT 10,10:”2; VER 
CHRS " 

70 PRINT AT 12,10;”3: 

FIN" 


80 LET a$=INKEY$; IF a$< rr l 
OR a$>”3" THEN GO TO 
80 

90 GO SUB VAL a$* 

200 

100 GO TO 20 
200 CLS : LET n 
= 1 

210 PRINT "ITEM NO. ” ; n: 

INPUT LINE a$: PRINT a$: 
IF a$=.THEN 



30 INPUT 


















RETURN 

220 LET 3 (n)=VAL a$: LET 
n^n +1 

230 IF n<13 THEN: GO TO 

210 

240 LET n=n—I: 


NEXT t 

420 LET f=(2*PI) 

in 

430 C'IRCLE 127,86, 

60 

440 LET a=0: FOR k=l 


RETURN 

400 IF n-0 THEN 
RETURN 

410 CLS; LET tt=0: FOR t=l TO 
nt L ET tt=tl+att): 



\ \ 


TO n 

450 LET nn^a+a(krf 
460 FLOT 127,86: DRAW 
60*SIN m,60’CQS m 
470 LET a = m 
480 NEXT k 
490 PAUSE 0; RETURN 


ANALISIS DEL LfSTADO 

Cuando hayus ej ecus ado este pro- 
grama. veras primero un menu. Es |o 
que iniprime (PRINT) las Imcas 40 a 
70 y le permite enlrar Ins datos, ver el 
diugrania n EmalL.ar el programs. La 
linea 80 espera a que aprietes un:i ie- 
da; puede ser eualquiera (salvo las 
que restaur an la me mod a). aunque 
solo L 2 y 3 hacen desaparcccr el 
mend. Lsto es lo que consigns el 
IF ... THEN eslablccido eu la linea 
80. Una condicidn sene jams si iuad a 
en la linea 400 hate que el programs 
v Lie Ivy al menu si aprietas 2 sin entrar 
ningun dato. Y si pruebas a pulsar 3 
ftnali/as el programs. Si quteres que 
trabaje dc nuevo, ha bras de recurrir a! 
RUN, 

Para empezar, In mas obvio es que 
elijas I, que lleva el program! hast a 


una rusina de entrada de dales. La li- 
nca 90 calcula la lines actual a la que 
debe dirigirse el programs, la cual en 



este easo es la linea 200. Esta esta- 
blece la variable (N) de Ids dams, que 
vamos entrando (INPU T) eu la linea 
210 y almacen an doles mediant e la 220 
en u n a tab la que que do dimension ad a 
en la linea 10 . 

Para enlrar los datos, escribe los [tu¬ 
rner os seguidos de ENTER. La lines 
230 comprueba si has introdueido to- 
dos los dams cuyo espaclo iue reser- 
vado en la linea 10. Si no es asi, el pro¬ 
grams hEice un buele y vuelvc a la linea 
210 para entrar el siguiente dstn. Ob- 
serva que no nccesitas 1 lunar todo el 
espaclo reservado; si. por ejemplp, 
solo deseas una tarta dividida en cinco 
portion es. habras de pulsar ENTER 
dos voces una vez intrndueido el 
quinlo iipo de dates. La linea 100 [levy 
enlonees el programs a Ea rut in a que 
visualiza cl menu. Ahora bien, si tus 
dates Henan ennipleianienic el cspado 
reservado, la tinea 240 enviara auto* 
inaticanaente el programs a I menu, 
per to que no podrAs nunca rebasar ta 
ca pad dad de Ja tabla. 


AQU! TlEiMES LA TARTA 

Si ahora pulsas 2. el programa va a 
la linea 400. que inicia la rutin a que 
dibuja la tarta. La linea 410 hace un 
buele para los da los y sus total es- El 
resto de ta rut in a determ ina la escala 
pura cstos V dibuja el grafico. Repasa, 
si quaeres enterarte bien. lo que ya se 
ha publicadoen INPUT sobre el mode 
de tratar las fund ones circulares de tu 
ordenador. 

La linea 420 divide el grttfieo entero 
(angulo de .16!/* o de 2*PI ra diaries) 
por el valor total de los dams para ob- 
tener el factor de la escala. La linea 
430 dihuja la tarta (o sea, un circtilo 
de radio GO). Las linens 440 \ 45!1 ha- 
cen, enlonees. un buele para los didos 
en trades, obteniendo el subtotal dc 
cstos en cada pa&ada y multiplic&ndolo 
por el factor de la escala (f), Este siib- 
Lolal ya a escala (m) CS el valor dc los 
pun los de la circunterencia por los 
cualcs se irazaran los radios que divi¬ 
deo el circtilo (linea 4G0), 

Y de esta manera ya estiis en con- 
dicioncs dc instruir a HI ordenador 
para que te haga una represent addin 
dc harms o dc tarta. 


INPUT 31 
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FREDDY Y LA 
ARANA DE MARTE (y II) 


■ _CUL MINATION DEUUEGO 

m _ EL BUGLE PRINCIPAL 

■ FRED DY COMO O ES AYUNQ 

■ MOVIMIENTQ DE. LQ5 GLOBQS 

m LANZAM.I ENTD DE LAS FLECHAS 


El jucEoeStimk-iaLlzado* Freddy esla 
cspcrandu en la cscalcra, Sus fleehassoji 
sijj li/ atlas, losplobosestan inflating y a la 
arana sc le have la boca agUih 

H.n la primer a parte de Freddy y la 
ttratio de Marta introdujistc las rutinas 
tie untniuek’in. 

A hade estas I Eneas y tendr&s cl 
juego completo: 


EL BUGLE PRINCIPAL 


10 CLEAR 65287 
20 GO SUB 1000 
30 GO SUB 3000 
50 IF ax< >29 THEN GO SUB 
300 

70 GO SUB 400 
90 GO SUB 500 
100 GOSUB 200: IF dead = 0 
THEN GOTO 50 

El juego esta estmeturado de mode 
que se definen los grafieos y se pone a 
ccrtJ la puntuacitm. 

El bucle principal pmpiamente di- 
cho se cxtiertde desde la tinea 50 a la 
linea 100, continuando mientras 
Freddy este vivo, Dicho hude incluye 
el nu>viniiento de la fledia, en cast) de 
que sc hay a di-spar ado, el movim lento 
de la ariana, e! movimieiito de Freddy 
de aeuerdo con las leelas pelsadas y el 
movimiento de los globes. Cada una 
de las rutinas principles actualixa las 
variables. 


LA HORA DE COMER 


105 LET s(xinc) = I 
110 FOR x=s(xpos] TO 29: GO 
SUB 500: NEXT x 
120 LET s(yinc)-l: LET 
&txincl = 0 

125 FOR y=s(ypas) TO 19 


130 IF y=my AND ax=29 THEN 
POKE 23607,60: PRINT AT 
my+1,29;" H = POKE 23607 r 
252 

140 GO SUB 500 
150 NEXTy 

160 POKE 23607,60: PRINT AT 
10,0 f INK 2; PAPER 7; 
BRIGHT 1; "Estas muerto. 
iquieres volver a jugarts- 
n)?”i: POKE 23607, 

252 

165 LET at—INKEY$: IF 
a$ = " "THEN GOTO 
160 

170 IF = OR a$="S" 

THEN GOTO 30 
175 IF a$ <> ht n” AND a$ 

<>"N' r THEN GOTO 160 
180 POKE 23607,60: CLS: 

STOP 

Una vez ret i rad as todas las puertas, 
«dead» (muerto) sc pone a uno y sc 
ejee titan las I metis 105 a 130, 

Estn rut in a an neve horizon till me nit 
la araha hasla que esta se encuentra 
sob re el de&vcnturado Freddy v, a 
conti nuacidn, vert Seal mente cayendo 
sobre dl y sob re la esculera, Luc go se 
It- da a I jugudor la option de intent a rlo 
de nuevo. A l colocar el valor 60 cn la 
posicidn 23607, se restaura d puntero 
del juego de caradercs. pudiendose 
utilizer el juego de caractcrcs com- 
p Leith 


EL VUELO DE LDS GLOBOS 


210 LET b(eount) = b(count) 

- 1: IF bteount) <> 0 
THEN GOTO 280 
220 LET b(count)=b{maxcount>: 
PRINT AT btypos) + 1, 
b(xpos);" LET btypos) = 
b(ypos)- 1: IF b(ypos) = 4 


THEN GO SUB 600: POKE 
23607,60: PRINT AT 1,10 
+ {3—props)*9;" ff ;AT 2,10 
+ 13—props)*9 1 dJ POKE 

23607, 252:LET 
props-props-1 
225 IF props - 0 THEN LET 
dead-1 

230 IF ((ay <> b(ypos) AND ay 
<>b (yposHI) OR (ax< 
btxpos)- 1 OR ax>b(xpos) 

+ 1)) THEN GOTO 250 
240 LET score = score + 

b(points): GO SUB 600: IF 
sc ore > hi sc ore THEN LET 
htscore-score: POKE 
23607,60: PRINT AT 0 f 23; 
INK 0; PAPER 6;huscore: 
POKE 23607,252 
245 GOTO 380 
250 GOSUB 4300 
280 RETURN 

b(eut'ritaj y hfcuentartiax) xnn k>s 
elemcntos mas import antes de la ma¬ 
trix del globo. Cada vez que se llama 
la sub rut id a, la linen 211) decrements 
b(cueiita). Cuando dicha variable al- 
canza el valorcero, cl globose muevc. 
Una vez movido cl globo, la Hnea 220 
copia el valor de b(cuentamax) en 
b(cucnla). El globo puede moverse y 
di stint as velocidades ximplemcnte va- 
riaitdo el valor de Ikeuciitamax)- La Ul¬ 
rica 220 eomprueba si el globo lt« sido 
reventado o si ha llegudo a la parte su¬ 
perior de la pantalla. 

Si cl globo ha stdo reventado, la 
punliiadbn se incrementa, Si ha !Ee- 
gado a la parte superior, sc retira uiia 
puerta. Si se retiran todas las puertas, 
muerto se pone a uno. 


[TWANG! 


300 PRINT ATay.ax; 11 LET 

Juegos INPUT 

































m aouasee 


ax—ax-1: IF ax<0 THEN 
LET ax=29; PRINT AT 
my+l r 29 i ,p e ,, i LET 
ay=my+l: 

RETURN 

310 IF ^ay-b(ypos) OR 
ay=b{ypos) + l) AND 
(ax-b(xpos) OR 
ax= b(xpos)+L)) THEN LET 
score-score+b (points): GO 
SUB 600: IF score>hiscore 
THEN LET h i score=score- 
POKE 23607,60: PRINT AT 
0,23: INK 0 ; PAPER 6: 
hiscore: POKE 23607, 

252 

330 IF ax< >29 THEN GO SUB 
4100 

340 RETURN 

Esta es 9a rutina que anima la fle- 
elui, Sc borra 3a imagen anterior y la 
nueva sc imprime eii ta posicibn ri- 
guicnte. determinada por [a variable 
ax. Dicha variable se decrements cn la 
tinea 30(1 y T para evitar que Ea ftecha 
se imprima fttcra de la pantalla, cada 
vez que la in ism a llega a ser inferior a 
cere sc pone de mievo a 29. Cuando 
ax Liene el valor 29. la ftecha esta de 
nuevo con Freddy y puede ser Qanzada 
utilixando la barra espaciadora. 

Si cl valor de ax es 29, no puede re- 
vent arse n ingun giobo, por to que se 
abandon a la siibrutina. Si la flecha ha 
stdo dis parade, ax<>29, la I idea 31(1 
comprueba si £sla ha golpeado el 
giobo. cn cuyo caso inert: men ta la 
puntuacidru Si un giobo ha sido reven- 
tado, se llama la subrut in a de la line a 
600, la subrutina de estallido del 
giobo. 

La Ifnea 330 llama la subrutina que 
dibuja la ftecha en la posicibn dc 
Freddy, sl ax no indiea que la flecha 
ya sc cncuenfra en dicho lugar. 


MOVJMIENTO POR LA ESCALERA 


400 LET a$ = |NKEY$: IF a$ = ” " 
THEN RETURN 
410 IFa$ = ”Z IJ OR a$ = "z JI 
THEN GO TO 450 
420 IF a$= rr C” OR a$-"c ir 


THEN GO TO 440 
430 JF a$< > M " THEN 
RETURN 

432 IF ax< >29 THEN 
RETURN 

434 LET ax=28: PRINT AT ay, 
29;" RETURN 
440 IF my = 19 THEN 
RETURN 

445 PRINT AT my,30; INK 6; 
"K1 SJ : LET my=my-l: 
PRINT AT ay,29; JJ “: IF 
ax = 29 THEN LET ay= 
ay-1 

470 GO SUB 4000; RETURN 

Las tineas 400 a 430 leen el leclado. 
Las Line as 430 y 440 com pr ae ban si se 
ha pulsadt) la barra espaei adorn y, a 
continuacibn, si Freddy dispone de 
uua flecha. 

A medida que Freddy se mueve 
arriba y aba jo, se dehen usar carac- 
teres dc csealera para rellenar et es* 
pacio situado encima o debajo de el 
(ya que si no, desapareccra La esca¬ 
le ra). Si ax es igual a 29, la flecha uim> 
bien debera moverse. 


PATAS CORTAS, GRUESAS Y 
PELUDAS 


500 LET temp=s(xpos) + (sxinc) 
510 IF tempcl OR 

temp>8+(3-pro ps)*9 
THEN LET s(xinc)-s(xinc): 
GO TO 500 

520 POKE 23607,60: PRINT AT 
sCypos> ? s<xpos); ,p ;AT 
s{ypos)+l,s(xpos) : " POKE 
23607,252 
530 LET 

s(ypos)=s(ypos)+ 5 (yi nc): 

LET s(xposj=temp; LET 
s(picture)=l-s( picture): GO 
SUB 4200 
540 RETURN 

La ultima de las subrutinas tie mo* 
vi mien to coneierne a la arena mar- 
ciana. Para baccr mas interesante el 
juego, esta no se sienta simplemente 
esperando su comida, slno que pasea 
arriba y aba jo impacieme desde la 


puerta mas prbxima liasia cl muro del 
exlremo. Hay dos imageries dc a nine, 
almaccmindosc cl numera de la inia- 
gen actual en s| imagen?, la cual se ma- 
nipula en la linca 53d, en donde se ob- 
tiene un cero o un uno. 

Las tineas 500 v 51(1 aseguran que Ja 
a ran a no escape de la jaula antes de 
que todas las puertas hayan sido rcti- 
radas. 


COMO UN GLOBO SONOA 


600 PRINT AT b(ypos},b(xpos); 
BRIGHT If JNK b(colour); 
"gh'LAT b(ypos) + l,b(xpos); 

"ii" 

610 POKE 23607, 

60 

620 PRINT AT 0,14; INK 0? 

PAPER 6;Score 
630 BEEP .5,-20 
635 LET bl-bl-1: PRINT AT 0, 
7; INK 0; PAPER 6;bl;: IF 
bl = 9 THEN PRINT INK 0; 
PAPER 6;" " 

637 IF bl = 0 THEN LET 
bl = 15+5*leveh LET 
level = level +1: LET 
props-props-1: PRINT INK 
0; PAPER 6; AT 0,7fbl;AT 0, 
2;level: GO SUB 
6000 

640 PRINT AT bfypos) r b{xpo$};' r 
AT b{ypos)+ l,b(xpos); 

M- It 

650 PRINT AT ay,ax; 1 ' ,r : LET 
ax = 29; LET ay- 
my+ 1 

660 POKE 23607,252: GO SUB 
4000: GO SUB 5000: 
RETURN 

Lo unico que fail a es a nadir una m- 
tina que haga cstalhtr c! giobo si una 
flecha ha dado en el bianco. La rutina 
es muy simple, imprimiendo la tmagen 
del giobo reventado en la pantalla y 
bo r run do de spues dicha irnagen. Si es 
necesario, se modifiea cl numero de 
globos que que dan, as! eomo el nivel. 
La flecha vuelve a la posieidn de 
Freddy, prepuradu para ser dispa rad a 
contra el siguiente giobo. 


1S2 INPUT Juegos 












jwaaBaaaaaa eu mme 


LA LUNA 
A TUS PIES 


K,n esle formidable juegi) vas a nece- 
sitar de tod a J a lia I) i I id ad \ sail £i e I'r ia cl e 
que seas capaz; para ninniubrar el im'i- 
dulo lunar dt forma que pucda alnni/ar 
perfeclamenle. 


I a pmgrainaeidti de jiaegus no liene 
Plu qne jicnc vn i com pi kudos pros;ra¬ 
mus para produeir un jue^o indeperc- 
dientc \ eoiuplelo, Aqiii le prcsenla- 
mns una \ ersion del relebre program a 
■Wtkhtfo ftiiMtr I Litntir fantler) E| Lie eoil- 
i iene eralkos on aka resntuddn y un 
conlrol loiaf sobre cl apnrato. 

LI jiiego cs. Lomplelo y may variado 
suaViii to prcsunUimos. pero Ui tienes 
la posihilidad de adaplurln a t tis pre 
lereneins personates. For ejemplo. 
puede que (e gusie a nadir ana rubna 
del tipo +(^otro iiitcnln?* para cvilar 
voher otra vezal RUN' ana vezquc se 
lm eoiielyido cl! iles.eetiso r O hieii 
piiede que tlesces akerar tosgratieos y 
tos sonidos, lotto depende de li. 


CGNTROLES 

DebeCLis ulili/ar las I eel as del cursor 
5. 7 y M, 


1 BORDER 1: INK 7: PAPER 0: 

CLS : BRIGHT 1 
20 TOR N 1 TO 50: PLOT 
RND J 255,{RND' 135J + 40: 
NEXT N 

70 PLOT 0,0: FOR N 1 TO 16: 
READ GX.GY: DRAW GX.GY: 
NEXT N 

80 DATA 18,30,18,-15,18, 
8,18,8.16,20,16,5,13, 
■20,16.-8,18.-4,15,0, 
10,10,20,2,5,10.-20,10, 
-10,20,-5,1-8,20 
90 PNlNf A I 0,4; INK 6; 

PAPER 2; ’’FUEL: ";AT 0,18; 
"VELOCIDAD:" 

110 LET LX“RND*240+ 10;LET 
L Y 160-( 1 5 + (RND'* 10)): 
LET XY RNDM5:LET YV 
0:LET F ■ 246 
115 GO SUB 4000 


120 GO SUB 1000: GO SUB 
2000: GO SUB 3000 
130 IF LY>20 THEN GO TO 120 
135 PAUSE 50 
140 CLS : IF LX< 154 OR 
LX> 164 OR ABS YV>4 
THEN GO TO 160 
150 PRINT 11 HFELICIDADES LO 
HAS LOGRADOM”; RESTORE 
5000: FOR N = 1 TO 14: 
READ A,B: BEEP A,B: NEXT 
n ; GO TO 170 

160 PRINT AT 10,7; FLASH 1 ; 
INK 2; PAPER 7; 
"SLCRASHED!!!": FOR T- 1 
TO 50: BORDER RND*7: 
BEEP .01 ,RND*5; NEXT T 
170 PAUSE 400 
180 STOP 

1000 IF LY<1.60 THEN GO SUB 
4000 
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■ 
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■ 
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■ 

PRQGRAMAS CON EXITO 

■ 
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2: DRAW 5,-2: DRAW 4, 

10 

4010 OVER Q: 

RETURN 

5000 DATA .2,4.2,7,, 2. 5,. 2, 

12.. 2.0..2.4..2.4..2.5..6, 

7.. 2.12 r .2,0,.2.4,.2,2; 

. 6,0 

1037 IF LY< 10 THEN RETURN 
1040 GO SUE 4000 
1050 RETURN 
2000 LET YV - YV - .5 IF F< 1 
THEN RETURN 

2010 IF INK£Y$ = "7" AND f>3 
THEN LET YV=YV+1: LET 
F F- 3: RETURN 
2020 IF INKEY$ = ”5" THEN LET 
XV -XV .5: LET F“F —1: 

RETURN 

2030 IF !NKEY$-”3" THEN LET 
X¥=XV + .5: LET F-F-l: 



1010 LET LX” LX-t-XV: LET 
LY-LY + YV: IF LY<300 
THEN DEEP .02,LY 5 
1030 IF LX<5 THEN LET 
LX -LX + 245 

1035 IF LX>250 THEN LET 
LX-LX 242 

1036 IF LY> 160 THEN RETURN 


RETURN 
2040 RETURN 

3000 PRINT,AT 0,10 ; " "U-STR$ 
F+” hh ;AT 0,23; 11 " + STRS 
INTYV+” ft 
3010 RETURN 
4000 OVER 1: PLOT LX.LY: 

DRAW 5,-10: DRAW 5, 
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■ 
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Para efeetuar uit anaiisis instant a neti 
fudlitn las dfras y, [ilvidntiriote etc las 
maternal rcas H QbsmflCurrtu tu micro las 
convicrte un un diagrams tie harms a 
Lodo color y can un uspecto iotalim-nte 
proles! must. 


fra* virtual rue nte incomprensibles. se 
presenta mejor en forma de grfificn o 
de tabla. que sc comprendc mas ftcil- 
mente tie un;s ojeada. PrcpEararlo a 
mano es tedtosu. pern predsn me nte es 
el tipo de tnibajo en eJ que destacan 
tos ordenadores de oficina* con su ca- 
ptiddad para dar tin a presented on a 
todo color en eugstidn de segundos. 

In presented on de dichos da tos no 
solo sc limila a las m£t|uinas de ofi- 
cina. si no que lambien gs una de las 
aplicarioncs praclicas a quo sc sue- 


le prestar un ordenador domestjeo. 

No cs probable que el usuario me¬ 
dio tie dicho tipo do ordemidores ma¬ 
ne je algo parecido a la vasla cunt I dud 
tie in form ad on gencnidu incluso par 
un negoeio pequeno. pern hay muchas 
cosas que pueden analizarse ullimsk- 
mente en un ordenador, Porcjemplo. 
^.se icieremeniaron ios ingresos y tos 
gustos hud a fin de ano, o dtsminuye- 
ron Ids gustos? ^.Has gastado mas on 
software In format ico (o en olios ar- 
beulos tales coinn revistas^ cntreieni- 


Todo el numdo habrii visio referen- 
das de Ios sistemas mform&lieos de 
ofieinn que mucsiran elEiboradas rc- 
preseiitaeiones de dittos tales eomo d- 
frits de eomprns c invent a r ios, Lista 
clase de in form adorn can ii dad de ei- 






































mien to y consume) durante el otofio 
que durante el verano? L Cuando so- 
brepEisan lux ahorros un cierto nivel v 
durante cuanto tiempo permanecen 
asi? 

Junto a diclias a plica clones de iipo 
comercial hay loda cluse de temas do 
Interns general, quiza dates y cifras re- 
lacionadas con un hobby, que podrian 
ser analizadas y representadas. Dichos 
tenuis van. por ejempki, desdc las ta¬ 
fias de asistcnciu on el club local hEisla 
los ntveles de preeipitacidn o do las 
mareas, Qtras COsaX quo pucdes do- 
sear representar grSfieamente son re- 
suliados deportivos + o el lama ho de 
una coleccion en crecim lento. 

FI sencillo program a ofreeido Eiqui 
te peruble preparar r^pidameme una 
representacidn visual de cualquier cs- 
ladistica quo vane a So largo de un pe- 
nodo de tiempo, Los ejes del grEifico 
so ajuslan automaticamcnte, por lo 
que pueties entrar cifnis semantics, 
mansuulcs o unualcs. Do hecho, p no¬ 
des ulilizai cualquier unidad tie 
tiempo. 

I'uedes mane jar valores quo lleguen 
a cualquier mugnilud, unidados, de¬ 
ceits. centenas, mi Hare so induso mi¬ 
lk) nos. si tus calculus Hogan tar) lejos. 


UTILIZACION DEL PROG RAMA 

AL lunzar cl programs, visualize tin 

*menu* o lista tie opciones, Seleccio- 
nando 3 a opci6n do mtroducir micr os 
dittos, sc to invila a indicar los nom- 
bres do 3os ejes, Los rdtulos quo tc- 
clees aparoccran on ol grailcu cuando 
sc dibtiic el mismo, Cuando introduz- 
oijs dichos rondos, rccuerda hacerlo 
cor recta me nte, FI numero de barras 
rep resent an do sc maim s. moscs. a nos a 
lo quo sea, se represents a to largo del 
eje a. mientras*que el valor de las hu¬ 
rras, pesetas t) cualquier oira uni dad. 
so represen la a lo largo del eje y. 

A conliiiuucibn sc Ic pide quo iiltru- 
duzcas el numero de barras a trazar, 
Pucdes irazar un mil* i mo dc 3(! 1?ei- 
rms, 

Luego le pregunta los dalos, Ini- 
prime cl mimero dc cad a hurra y to 
pidc que introduzcas el valor, que 
puctlc set positivo o negative*. Dichos 
valorcs van dc 1038 a IQ3S. 


Una vez introducido el ultimo valor, 
sc vuelve al menu dc rnodu quo puo- 
das c logit o bien corregir los dutos. 
modi bean do los valorcs introducidos 
on ceiso dc que hay as comet id o algun 
error, o bier cl grafico. Si eltges 
corrcgirlos, los valorcs so im prim trail 
correlativamente eu hi pantnlHi- lac¬ 
hes pulsar cualquier tecla oscepto la 
tecla RETURN puru dejar sin cam- 
bios el valor y visual izar ol sigu sente, 
o pulsar hi tecla RETURN e intro du¬ 
el]' a continue cion cl nuevo valor. 

Cuando estes sat is lech o con los va* * 
lores, sole colons la opdon de visual! • 
zar o trazar el grafico- 

Puedos elcgir enlre un grafico cs- 
culado o un grafico a cscalu complcta. 
La opcion dc grafico oscalado visua- 


liza el grafico con Ieis diitiensionos co¬ 
rrespond iontes ul eje y redondcatlas a 
un nuiximo de diez, cion, mil, etc., 
scgiin cl valor maxi mo dc los datos, 
pero el grafico no lien a la totalidud do 
In pant a 13 a. La opettin dc paniallu eli¬ 
te ra visual tza el grafico sobre tod a oJ 
urCEi dc \$ pant u 13a del televisor, pero 
imp rime los valorcs toeiIos do los da los 
(no los valores escalados) a lo largo 
del eje y. 

Para mayor claridad, las barras tra- 
z:id;is vEui separtidas por un pequeno 
espacio o jior udei hurra coloreada. 

10 LET 9-0: POKE 23609,20: 
POKE 23658,8 

100 BORDER 7: PAPER 7: INK 
0: CIS 
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110 PRINT BRIGHT 1- PAPER 3; 
INK 7;AT 4,8;" 

0 P C I D N E S " 

120 PRINT BRIGHT 1;AT 7,4;" 
l:- ENTRA NUEVOS DATOS 

rr 

130 PRINT BRIGHT 1;AT 9,4;” 

2: — VER / EDITAR DATOS 11 
140 PRINT BRIGHT 1:AT 11,4;" 
3:- GRAFICO ESCALONADO 

PI 

145 PRINT BRIGHT 1;AT 13,4; 1S 
4:- GRAFICO TODA 
PANTALIA" 

150 PRINT BRIGHT 1; FLASH 1; 
INK 2;AT 16,7;” 
SELECCIONA OPCION ,p 


160 IF INKEY$="” THEN GO TO 
160 

170 LET a$ = INKEYS: IF a$<"l" 
OR a$>"4 ,r THEN GO TO 
160 

175 IF a$<>" 1" AND 9 = 0 
THEN GO TO 160 

18© GO SUB VAL a$*1000: GO 
TO 10© 

50© REM *• RUTINA NUMERICA 
OE ENTRADA ** 

510 INPUT (w$); LINE a$: IF 
LEN a$=0THEN GO TO 
510 

520 FOR j=l TO LEN a$ 

54© IF (3$(j}>- "0" AND 

a$(j)< = ”9”) OR a$(j) = '\" 


OR a$(j)="—” THEN NEXT 
j: LET v=VAL a$: RETURN 
550 GO TO 510 
1000 REM ** RUTINA DE 
ENTRADA ** 

1010 BORDER 1: PAPER 1: INK 
7; CLS 

1020 INPUT "NOMBRE DEL 
EJE-X? LINE x$ 

1030 PRINT INVERSE I;AT0 P <3; 

rr „ ■■ 

1040 INPUT "NOMBRE DEL 
EJE-Y7 LINE y$ 

1050 PRINT INVERSE 1;AT 0, 
16;” ”;yS” 

1060 LET w| = "CUANTQS 

rr +x$+” (1 TO 25}? GO 

SUB 500 

1070 IF v<l OR v>25 OR 
voINT v THEN GOTO 
1060 

1090 LET 2=v: DIM a(z) 

1100 FOR k=l TO z 
1110 LET w$="ENTRA DATOS 
PARA "+STR$ k+” GO 
SUB 500 
1120 LET a{k)=v 
1130 PRINT k,a(k) 

114© NEXT k: LET 9 = 1: PAUSE 
50: RETURN 

2000 REM ** RUTINA DE 
EDITAR/VER ** 

2010 BORDER 2: PAPER 2; INK 
7 

2020 LET cn= 1 

2025 CLS : PRINT PAPER 6: INK 
2;AT0,0;X$ 1 y$;TAB 31;" " 
2030 PRINT cn,a(cn) 

2035 PRINT #l : PAPER 6; INK 
2;AT 0,0;" EDIT para 
cambiar valor actual 
cualquier tecl-a para 
conti nuar” 

2040 PAUSE 0 

2050 IF INKEY$ = ”" THEN GO 
TO 2050 

2060 LET c$ = INKEYS 
2070 IF c$=CHR$ 7 THEN GO 
SUB 2500 

2080 IF cn=z THEN PRINT 

PAPER 6 ; INK 2;"DATOS 
FINALIZADOS”: PAUSE 
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100: RETURN 

2090 LET cn=cn +1: IF tn=21 
THEN GO TO 2025 
2100 GO TO 2030 
2500 LET w$-"ENTRA NUEVO 
VALOR PARA "+$TR$ 
cn + " GO SUB 500 
2510 LET a(cn)=v: PRINT 

PAPER 6; INK 2;cn,a(cn); 
TAR 31;” RETURN 
3000 REM ** GRAFICA EN 
ESCALA ** 

3010 BORDER 0: PAPER 0: INK 
7; CIS : LET hi—0: LET 
lo=0 

3020 FOR k=l TO z 
3030 IF a{k}>hi THEN LET 
hi^a(k) 

3040 IF a(k)<lo THEN LET 
b=a(k) 

3050 NEXT k 

3060 LET type=2: LET org-4 
3070 IF io<0 THEN LET type-1: 
LET org=84 

3080 LET h-hh IF ABS lo>hi 
THEN LET h-ABS lo 
3090 LET ra=hi-lo 
3100 IF h<=l THEN LET hi = l: 
GO TO 3150 

3110 IF h<= 10 THEN LET 
hi-10: GO TO 3150 
3120 IF h<“ 100 THEN LET 
ht= 100: GO TO 3150 
3130 IF h< = 1000 THEN LET 


hi =1000: GO TO 3150 
3140 IF h<- 10000 THEN LET 
hi = 10000: GO TO 3150 
3150 LET wd = INT (25/z) 

3160 IF type-1 THEN LET 
ft=80/hi 

3170 IF type = 2 THEN LET 
ft= 162/hi 

3180 PLOT 56,org: DRAW 198,0 
3190 PLOT 55,4: DRAW 0 r 160 
3200 FOR n = 4 TO 168 STEP 8: 
PLOT 52, n. DRAW 3 P 0: 
NEXT n 

3220 PRINT * 1 ; PAPER 1;AT 0, 
14;” " 

3225 LET z$=" p, +y$ + M " 

3230 FOR ri=l TO LEN z% 

3240 PRINT AT n+(19-LEN 
y$)/2 a 0; PAPER l;zS(n) 
3250 NEXT n 
3255 LET dc -1 
3260 IF type = 1 THEN GO TO 
3320 

3270 FOR n = hi TO 0 STEP 
-{hi/10) 

3275 IF n<-01 THEN LET n-0 
3280 LET n$—SIRS n 
3290 PRINT AT dc,(6-LEN n$); 
n 

3295 LET dc=dc + 2 
3300 NEXT n 
3310 GO TO 3400 
3320 FOR n = hi TO -hi STEP 
—Chi/5) 


3330 IF n<.01 AND n>-.01 
THEN LET n=0 
3340 LET n$=STR$ n 
3350 PRINT AT dc,f6-LEN n$) : 

n 

3360 LET dc=dc+2 
3370 NEXT n 
3400 LET ink= 1 
3410 FOR n- 1 TO Z 
3420 LET crn^ofg 
3430 LET ink — ink h- 1: IF ink-8 
THEN LET <nk=2 

3440 JNK ink 

3450 FOR m-1 TO fa(n)*ft) 
STEP SGN a{n) 

3460 PLOT 56+(N-l)*wd*8. 
cm; DRAW wd*8-2,0 

3470 LET cin = cm + SGN a(n) 
3480 NEXT m 
3490 NEXT n 

3500 IF INKEY$<>"" THEN GO 
TO 3500 

3510 IF INKEY$= nr ' THEN GO 
TO 3510 
3520 RETURN 

4000 REM ** GRARCO TODA 
PANTALLA ** 

4010 BORDER 0: PAPER 0: INK 
7: CLS : LET hi=0: LET 
lo=0 

4020 FOR n=l TO i 
4030 IF a(n)>hi THEN LET 
hi =a(n) 

4040 IF a(n)<lo THEN LET 
lo=a{n) 

4050 NEXT n 
4060 LET ra = hi - Id; LET 
ft = 175/re; LET 
org=(ra—hi)*ft 
4070 LET wtf=INT {25/z) 

4080 PLOT 56.org: DRAW 198 r 0 
4090 PLOT 55,0: DRAW 0.175 
4100 PRINT #1; PAPER I;AT 0, 
14 E ” ,r 

4110 LET z$ = " ” + y$ + 11 11 
4120 FOR n = l TO LEN z$ 

4130 PRINT AT n + (19-LEN 
y$)/2,0; PAPER l ; z$(n) 
4140 NEXT n 

4150 PRINT AT 0,0 ; hi ; AT 21 r 0 ; 
10 

4200 GO TO 3400 


40 INPUT 
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En el numcro anterior public# mos e! 
primer capitulu de una nueva serif de- 
dicada al color, un aspeeto fundamental 
en la prog ram ac km dc juegos al que ge¬ 
neral men tc s:e presta niuy poe# ateu- 
dfin. 

Con el artimo de scntar lus prinei- 
pios que deb tan servir de base a pos- 
leriorcs explication*:* itieis com pie j #5, 
en a quel la ocasidn nos Lhnitamos a 
desglosar algunos conceptos basicos, 
dirigidndose especial me nte a aq tie I lus 
iectores que Todavfa no disfrutaban de 
un buen nivel de prOgramatidn. 

Esta vez volvemos a las pagiitas de 
INPUT eon el lislCm un pOCO mas, alto, 
y siguiendo la pauta ascendsnte que 
prometintos en et printer capltulo, ha- 
bhremos del acCeso di recto a los cd- 
digos de control y de la variable BOR¬ 
DER, entre otros lemas. 


EL COMANDO BORDER 

El comando BORDER cs pr^ctlea¬ 
rn entc un desconocido para muchos 
aficionados a la programacidn, Efec- 
tivamente, todos sibemos para qud 
sirve y ednio se usa (y si nlguno no 3.0 
sabe que eorra a por el manual), pero 
genera Imente nos iimitiimos a em- 
plearlo eomo una prolongation del CO- 
niando PAPER, La razrtn que explica 
cste comportamlento no puede ser 
mis evidente: usa n do la estreeba ter¬ 
minology de algunos t rat ados poco 
rcconiendables, podriamos dedr que 
BORDER es la unica orden refertda 
a la zona muSii de la pantaMa, De he- 
cho, cn la mayoria de las ocasiones se 
usa unicamente para enmarear alguna 
presentation poco vistosa, o para ade- 


EL COLOR EN TO 
SPECTRUM (II) 


cuar el color del contomo al to no cle- 
gido en el resto de la pan tall a. 

Sin embargo, eon un poco de habi- 
I id Eld e imagination, no es muy diffcil 
conseguir que esta zona inuril parti- 
cipe tambien en la eomunieatidn COU 
el usuario, a traves del unico comando 
que opera cn ella, 

Vcamoslo ei>n un ejemplo: 

Si pretendemos enfatizar, en un 
juego de aventuras, los impactos que 
red be el protagonist# cada vez que se 
ve sonnet ido al fuego enemtgo, e$ imis 
que probable que no baste eon emitir 
una nota sincopada a trav£s del debit 
altavoz del Spectrum. Tampoco sen'a 
muy eficaz seiialar con un oportuno 
flash en el Score que sc Iran perdido 
mil puntos, como sc hacia en los viejos 
tiempos. Pero como casi todo tiene 
arreglo en esta vida, siempre pod re- 
mos echar tnano at comando BOR¬ 
DER para anibientar las explosiones 
coit efectistas parpadeos en el eon- 
to mo de la pantalla, si mu Undo las in- 
terfercncias que la on da expansiva 
crearia en el monitor. 

Prueba el siguiente programs: 

10 PAPER 0: INK 7: BORDER 0 
20 CIS 

30 FOR N - 1 TO 50 
40 BORDER 2: BORDER 3: 
BORDER 4: 

BORDER 5: BORDER 6 
50 NEXT N 

Introduciendo algunas variantes, 
podenios obtener un result ado mends 
violento, adecuado a otros menesteres 
mas paefficos, como por ejemplo un 
sober bio lucimiento en una pantaLla 
de presentation, 

De este modo: 

10 PAPER 0: INK 7: BORDER 0 
20 CIS 


30 BORDER 1: BORDER 2: 
BORDER 3: 

BORDER 4: BORDER 5: 
BORDER 6: 

BORDER 7: 

BORDER 0 
40 GOTO 30 

(para detenerlo, usa BREAK, ya que 
cs un bucle infinito) 

Como habris prjdidu apreciar, el 
prdgrama funeioita simplemente re- 
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Programacion 


corriendo una y otra vez los ocho co¬ 
lores bfisicos, ere an do a si un efeeto ttr- 
coiris. 

Ahora, amide al programs 2 la si- 
guicnte linea y ag&rrate!! 

35 PAUSE I 

Aunque en principio sorprenda, el 
resultado obtenido en los dos progra- 
mas anteriores puede aeabar abu- 
rriendo, Para evitarla, dcbcs buscar 
un cfecto mas alcatorio y me nos re¬ 
petitive usantio ta funeidn RND. y 
operando con ella de forma que ob- 
Tengas un numero al azar cnirc cero y 
side, como mostramos en el siguiente 
programs: 

10 PAPER 0: INK 7: BORDER 0 


20 CIS 

30 LET N = JNT (RND * 7): 

BORDER N 
40 GOTO 30 

Variando el numero de comandos 
BORDER en los an ten ores ejemplos 
(especial me me en los programas uno 
v dos), o introduciendo en el lugar 
oportuno una sentencia PAUSE, cs 
posible variar la vqlocidad eon que 
aparecen y se mu even los colores en el 
bordc de la partial la. o incluso deie- 
nerlos, como ocurria en el easo ante¬ 
rior a I leclear PAUSE 1. El cfecto es 
sin duda insblito: el eomorno aparecc 
decorado eon ocho colores apa rente- 
mcnte inpadviles, euando se siipone 
que no puede haber simult&nqamente 
mas dc uno. 


Si ya has probado el cfecto mencio- 
nado (introduciendo la Ifnea “35 
PAUSE 1” en cl programs 2), enion- 
ces leclca lo siguiente para ilustrar lo 
que aeabamos de decir: 

10 PAPER 0: INK 7: BORDER 0 
20 CLS 

30 BORDER 2: BORDER 3: 

BORDER 0 
40 GOTO 30 

Estos efectos se produce n por la re- 
lac ion que se cstablece e nitre la velo- 
cidad de cjccucion de las drdcncs 
BORDER, v el licmpo que tarda la 
television en hacer un abarrido de 
pantalla» (1/50 seg,), Tambidn dcbcs 
saber que la sentencia PAUSE 1 pro¬ 
duce un retardo equivalent a esc 
mis mo lapse dc ticmpo. 


LA VARIABLE BORDER 

I.a variable del sistema BORDER 
(capitulo 25 del manual), es la encar- 
gada dc almacenar ql ultimo valor 
assign ado a I color del borde de Ja pan- 
talla (y a las dos ultimas line as, nu- 
meros 22 y 23, nonnalmente reserva- 
das a la salida de mensajes y a la en- 
trada de datos a travds del comando 
INPUT). Se en cue nlra ubicada en la 
direction 23624 de la RAM, y tienc la 
peculiaridad molests - a no debes olvi- 
darto. de almaeenar no el cbdigo eo- 
rrespondiente. si no este mismo nu- 
niero multiplicado por neho. 

Cuando pokeumos esla variable con 
un nuevo valor, cl color del borde no 
sulrie ninguna alteracibn en tanto no 
sea pulsada alguna recla. No obstante, 
el efecto cs mmediato cn las dos ul¬ 
timas 1 incus de la pantalla, Esto po- 
demos comprobarlo en el siguiente 
programa: 

10 FOR N = 1 TO 7 
20 POKE 23624, N * 8 
30 INPUT TRUEBA"; A$ 

40 NEXT N 

El con re ri do de la Ifnea 30 puede 
parecer inverosmiil, y sin embargo re¬ 
sit] ta imprescindible para el correeto 
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funcionamiento del programs. No hay 
quc olvidar que el efecto obtenido a I 
aetLmr di recta mentc sabre la variable 
BORDER, no se muestra mlciitras no 
sc use el teclado, y de a hi la necesidad 
de introducer una sentcncia INPUT 
que permits hacerlo. 

Es difici! cmplcar con <;xitu cste sis- 
tema trabajando desde BASIC, salvo 
en algunos casos muy especificos, pero 
por ello no debcs pcnsar que su utili- 
dad sea nula, Al me nos, convienc que 
sepas quc exists la variable BORDER 
y edmo se usa. 


USO DEL COM AMD O OVER 

Para no salirnos demasiado del 
tenia, pasaremos por alio los detalles 
con ere los del funcionamiento dc estc 
coni an do, y nos eentraremos en sus 
positalcs aplieaciOiies en rctacitin al co¬ 
lor. Por el momenta, nos lint i tar emos 
a serial a r quc siguc el modulo 16gico 
del condicional OR. cuyo efecto po- 
dria describing asi: 


«Ao 0, pero no am bos* 

El cuadro de la figura uno lo ilustra 
con msis detalle, 

El coman do OVER cs un instru¬ 
ment fundamental en el desarrallo de 
program as dc juegos, Gracias a el po- 
demos sobreescribir un grafico sabre 
oiro sin borrar ninguno de losdos, re- 
cuperando ambos mas tarde tal y 
eomo estaban antes dc superponcrse. 

Supongamos que queremos despla- 
zar un cursor sohre un niapa. Nor¬ 
ma I mente, el cursor borraria a su paso 
todos los gnificos. Esto podrta solucio- 
narse facilmente usando OVER, pero 
si el cursor ticne un color di fere me al 
de los car acta res sobre fos que discu- 
rre, entonees probablemeniq persisti- 
nan los problcinas, 

El uso dc OVER en casos como este 
requiere un cuidadoso estudio de to- 
dos los detailed y una cicrta sollura en 
el mane jo del color. La solution que 
nosotros proponemos, ademAs de ser 
de aplicacidn cn cualquier programa 


CODJGO 

MODO E 

MODO E + 

CAPS SHIFT 

P 

PAPEL NEGRO 

tinta negra 

1 

PAPEL AZUL 

TtNTA AZUL 

2 

PAPEL ROJO 

TINTA ROJA 

3 

PAPEL MAGENTA 

TINTA MAGENTA 

4 

PAPEL VERDE 

TINTA VERDE 

5 

PAPEL CYAN 

TINTA CYAN 

6 

PAPEL AMARILLO 

TINTA AMARILLA 

7 

PAPEL BLANCO 

TINTA BLANCA 

8 

SIN BRILLO 

SIN FLASH 

9 

CON BRILLO 

CON FLASH 



de juegos, puede ser un util irislru- 
mento que te perm it a conocer en pro- 
fundidad los secretos de cste versa til 
eomando. 

10 REM DESP. CUR. OVER 
20 BORDER 0: INK 5: CLS 
30 TOR N - 1 TO 704 
40 LET R - 128+INT (RND * 5) 
50 PRINT CHR$ R- 
60 NEXT N 

70 LET X = 10: LET V = 10: 
GOTO 140 

100 PAUSE 0: LET 1$ = INKEYS 
110 PRINT FLASH 0 r INK 5; 
OVER 1] 

AT X, Y; CHR$ 143 
120 LET X = X+(l AND l$="6 M 
AND 

X<21) — (1 AND |$="7" 
AND X>0} 

130 LET Y = Y+( 1 AND E$="8 ,r 
AND 

Y<31) - [1 AND l$ = "5' r 
AND Y>0) 

140 PRINT FLASH 1; INK 2; 
OVER 1; 

ATX, Yr CHR$ 143: GOTO 

100 

El programs dcsplaza un cursor por 
la pantalla (usando las teclasS, 6, 7 y 
8), sobre un fondo de grfificos alea- 
torios. sin borrarlos ni alterarlos, Esta 
realize do en. un BASIC un poco avan- 
Z& do, con sen tend sis log leas que qui¬ 
zes no coniprcndas muy bicn. Nil tc 
preocupes, Lit todo caso. lo impor¬ 
tance por ahora es que te fa m ilia rices 
con ellas. 


ACOESO DIRECTO A LOS 
CODIGOS DE CONTROL 

En much as Ocasio ncS. sobre todo 
cuando trabajamos eon I is tad os may 
largos, necesilamos resaltar alguna 
seccidn dc programa import ante, o in¬ 
diear el comienzo de una rutina de es¬ 
pecial in teres, con cl objelo dc Incili- 
tar mis larde su localizacitin. El cm- 
pleo de sentences REM en e&tos casos 
no es muy recomendablc. ya que pa- 
san desapercibidas con facilidad y ade- 
mas su pone n un gasto extra dc me¬ 
mo ria. 
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La solucibn ideal esta en cambiar 
los at rib ut os de las line as que nos in- 
teresan, destae&ndolOH asi del resto 
del listado, El problems esta eii que 
no cxisten com undos RASIC espcci- 
ficos para hacerlo. 

Sis por ejemplo, ted earn os 

INK 2 

la tinta de todo el listado sc Lornara 
roja, sin que podamos determmar 
Eiasta dbnde queremos que sc pro- 
duzca ei Cambio tic a tributes. 

Un intHodo adecuado para lograr 
nuestro propdsito cs el llamudo «ac- 
ceso director. Veamos edmo furt- 
ciona: 

Primero introducimos la linea 

10 REM PRUEBA 

Despues, la editamos a 3a parte in¬ 
ferior dc la pan ta I la (pulsando Caps 
Shift + 1), y coloeamos el cursor enire 
el numcro de linea y la sentenda 
REM. Por tittimo* ponemos cE cursor 
en modo E (Caps Shift + Symbol 
Shift), v puRamos un numero del ccro 
a I sictc, 1 rimed iatamentc, el papd de 
!a linea cambium de color, segun el 
numero escogido. 

Si ahora introducimos. 

20 REM OTRA PRUEBA 

observaremos que el cam bio de atri- 
butos tarn bid n a tecta a la nueva linea. 
Elio se debe a que eslc procedimierito 
altera cl color de todo cl listado a par* 
ttr del punto cn que sc produjo el cam- 
bio. Para comprobarlo, teelca 

5 REM OTRA MAS 

Como vcs. esta nueva linea no sc ha 
visto afectada, por ser anterior a la li- 
nca 10 T y conferva los atributos origi¬ 
nates. 

Ahora edit a dc nuevo la linea 10 y 
eolota cl cursor al final, poniendoto en 
niodo E. Rulsa el codigo 7 y seguida- 
mente ENTER. Loque has hecho csla 
vez ha sido rcstituir et color del pa pel 
a parlir del comicn/o dc la linea si* 
guiente, cs dccir. ya tiencs una sola li- 
nca en un color diferente at resto. 


Asi pucs, el mdodo consist? cn al- 
terar los atributos mediante c! sisEemEt 
que hem os descrito, al principio dc la 
linea que nos interesa rcsaltar. y res- 
tiituirlos al final. Naturalmente, csto 
iambi£n es apljcable a un coil junto de 
lineas. 


Para cambiar cl color dc la lima 
debes proeeder de igual forma, pub 
sando simultaneamente el codigo dc 
color elegido y Chops Shift. Por otra 
parte, cl cuadro de la figura dos resu¬ 
me las distintas combinaciones po- 
siblcS. 
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GRAFICOS DEFINIDOS 
POR EL USUARIO (II) 


He aq m (lus nuevijs personajes—ima 
serpknte y mi mono—- para coinpletar 
d cseeiianu rte la juriglu, mas atgurias 
ideas para am mar el cuadruy paniaho- 
rrar memoria^ 

En el cap] rule anterior de estu serie 
ya has visto la mar era de definir ana 
gran cantidad de figura^ en Lu ordt- 
nador y has empezado a for mar tm 
cuadrode una csecna de la jungla para 
utilizarlas, 

El programs de la escena de la jun- 
gln esta formado par seed ones, cr las 
qua sc de finer er cada una Eos UDG, 
Cad a section forma parte del cuadrcq 
el coeodrilo, el elefarlc, bs arbolcs, 
etc. La scgunda pane del programs 
que siguc amide tin a serpieme y an 
mono y tormina el fondo. 

Si has almacenado la prim era parte 
del program a on qint a o en olro so- 
porte, podras cargarlo en el ordena- 
dor, porque estc programs requiere la 
primera parte para fund on ar. 

Las lineas adldonales de dittos que 
rieeesitas partt defirtir las imagines se 
escriben despues del programa prin- 
cipaL Eu primer In gar escribe estas li¬ 
neas: 

130 REM Pokea-r datas de la 
serpiente 

140 POKE 23676,254 
150 FOR n=USR "a” TO USR 
V + 7: READ a: POKE n,a = 
NEXT n 

160 POKE 23676,253 
170 FOP n= USR "a" TO USR 
T+7: READ 9: POKE n,a: 
NEXT n 

180 REM Pokea datasdel mono 
190 POKE 23676,252 
200 FOR n = USR "a 11 TO USR 
V J + 7: READ a; POKE n h 3; 
NEXT n 

210 FOKE 23676,251 
220 FOR n = USR "a” TO USR 


M u rr +7: READ a: POKE n,a: 
NEXT n 

230 POKE 23676,250 
240 FOR n = USR V TO USR 
”9" + 7: READ a: POKE n h a: 
NEXT n 

500 REM Print serpiente 
510 INK 1 

520 POKE 23676,254 
530 LET i= 144: FOR n=2 TO 7: 
FOR m=16 TO IB: PRINT 
AT m t n;CHR$ z : LET 
z=z-f- 1: NEXT m : NEXT n 
540 POKE 23676.253 
550 LET z= 144: FOR n-B TO 
12: FOR m= 17 TO 18: 
PRINT AT m,n;CHR$ Z: LET 
z=z+1: NEXT mt NEXT n 
600 REM Print mono 
610 INK 0 

620 POKE 23676,252 
630 PRINT AT 0,30;CHR$ 144; 
AT 1 P 24;CHR$ 145;CHR$ 
146;AT 1,2S;CHR$ 147: 
CHR$ J4S 

640 PRINT AT 2,23;CHR$ 149; 
CHR$ 150 ; CHR$ 151 ;CHR$ 
32;CHR$ 152;CHR$ 153 
650 PRINT AT 3,23;CHR$ 154? 
CHR$ 155;CHR$ 32;CHR$ 
32;CHR£ 1 56;CHR$ 157; 
CHR$ 158 

660 FRINT AT 4,24;CHR$ 159; 
CHR$ 160;CHR$ 32;CHR$ 
161;CHR$ 162;CHR$ 163; 
CHR$ 164 

670 POKE 23676,251 
6B0 PRINT AT 5,24;: FOR 
0=144 TO 151: PRINT 
CHR$ n;; NEXT n 
690 PRINT AT 6,24 ; CHR$ 152; 
CHR$ 153;CHR$ 153 ; CHR£ 
153;CHR$ 153;CHR$ 154; 
CHRS 155;CHR$ 156 
700 PRINT AT 7,23;CHR$ 157; 


CHRS 15S;CHR$ 159;CHR$ 
32;CHR$ 32;CHR$ 160; 
CHR$ 161 ;CHR$ 162; AT 
22;CHR$ 163;CHR$ 164 
710 POKE 23676,250 
720 PRINT AT 8,24;CHR$ 144; 
CHR$ 145;CHRS 32;CHR$ 
32;CHR$ L46;GHR$ 147;A 
9,24:CHR$ 148;CHR$ 149; 
AT 10,24;CHR$ 150 
REM sot 
INK 6 

FOR n=0 TO 2*Pi STEP 
.05: PLOT 70,150: DRAW 
SIN n* 12,C0S n* 12: NEXT 




850 

855 

860 



n 


870 FO R n = 0 TO 2 * PI STEP 

PI/4: PLOT 70,150; DRAW / 
COS n*20 r SIN n*20: NEXT/ 
n 

970 INK 0 


A eontinuacidn escribe cstas linens 


de dates para definir las formas de Eos 
UDG. 
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■ 


■ 

TOQUES FINALES 

A LA ESCENA DE LA JLfNGLA 

■ 

UNA SERPIENTE 

Y UN MONO 

m 

COMPLETANDO EL FONDO 



■ _ EMPLEO DE GRAFICO S 

_ DE ALTA RESOLUCI ON 

■ ANIMACIQN DE LOS CARACTERES 

■ ALMACENAMIEN'TQ QE LOS DATQS 

EN COOIGQ MAQlilNA 



1400 REM serpiente 

1410 DATA 0 r 0 r 0 f 0,0,0,3,14, 

31,31,63,67,65j 254,254, 
225,71,63,0,0,0,0,0,0,0 

1420 DATA 0,0,0,0,255,12,28 t 
2S, 28,254,143,1,0,4, 
248,208,224 

1430 DATA 0,0 J 0,0,0,0 1 0 1 0 1 0, 
0,0,128,240,56 

1440 DATA 52,99,225,225, 
225,96,47,31,14,6,2,1, 
0,0,0,0,0,0,0,0,3,5,63, 
127 

1450 DATA 255,255,240,243, 
252,255,255,126,60,28, 
124,247,247,115,31,1,0, 
0 , 0,0 

1460 DATA 255.191.159.143, 
199,194,127,64,128, 
128,64,63 

1470 DATA 48,112,248,249, 
253,255,189,255,0,0,0, 
0,192,252,190,63,63,24, 
240 

1480 DATA 9,5,7,5,249,67, 
243,251,255,252,238, 
239,255 

1490 DATA 192,224,208,223, 
224,129,193,227,243, 
247,255,248,240,224, 
192 

1500 DATA 0,0,0,0,255,129, 
195,199,199 
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1510 DATA 239,259.255,0,0. 
0.0,0,0,0,0,128.248,31, 
140,158,191,191,255,0, 
0 , 0.0 

1520 DATA 0,0.0.1.15,62,206, 
30,61,121.243,247,247, 
63,15,3.0 

1530 DATA 30,127,191.95,93, 

61.250.240.194.252, 

194.192.192.224.224, 
240 

1540 REM mono 
1550 DATA 1,2,4,8,16,32.64, 
128,0,0,0,3,31,63,127, 
252.0,0,0,224,243,252, 
252 

1560 DATA 62,3,15,15,15,15, 
14,14,12 

1570 DATA 3,142,240,192, 
128,0,0,0.1,1,3,3,3.3.3. 
3,248,240,224,224,192 
1580 DATA 192,192,192,30, 
14,110,76,56,0,0,0,0,0, 

0 . 0 , 0 , 0,0 

1590 DATA 1,28.28.56,56, 

112.112.224.224 
1600 DATA 3,3,1,1,1.0,0,0, 

192,224,224,240.248, 

248,252,126,3,7,15,31, 

63,62 

1610 DATA 126,252,192,192, 
128,0,0,0,3,7,0,0,0,0,0, 
0,128,223 

1620 DATA 127,63,31,31,15, 
7,7,3,0,128,128.192, 

192.192.224.240.252, 
126,126,127 

1630 DATA 63.63,31,31,15, 
15,7,3,3,131,131,131 
1640 DATA 255,255,231,231, 
255,252,172,183,128. 

192.224.224.224.224, 

224.224 

1650 DATA 1,1,0,0,0,1,3.7, 

248.255.255.255.255, 
255,255,255,0 

1660 DATA 255,255,255,255, 

255.255.255 

1670 DATA 15,255,255,255, 
255,255,255,255,199, 

255.255.255.255.255, 

255.255 



1680 DATA 223,239,255,265. 
252,128,0,128,224,240, 
248,248,240,96,0,0,0,0. 
200 

1690 DATA 232,248,248.120. 
112 

1700 DATA 7,15,15,31,31,31, 

63,63,255.255,255,255, 
255,255,255,255,192, 

224,224 

1710 DATA 224,224,224,192, 
192,0,0,1,1,3.7.14,60, 
240,224,192,128,128,0, 
0,0 


1720 DATA 0.0.0,0,0,3,15,31, 
63,63,63,63,126,254. 
252,240,191,191,63,63, 
63 

1730 DATA 63,63,63,15,7,7,7, 
7,7,7,7,192,131,135, 
159,191,255.254,252 
1740 DATA 252,248,240,224. 
192,128,0,0,0,1,3,7.6,6, 
4.0,127,254,240,224 
1750 DATA 64,64,0.0.192,0,0, 
0,0.1,1,3,63,31.63,127, 
254,252.248,240 
1760 DATA 7,3,0,0,0,0,0,0. 
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240,192*0,0*0,0,0,0,7,7, 
15.31,31*31,23,23,224 
L770 DATA 192,128,0,0,0,0,0, 
7,6,4,0,0,0,0,0 

Tod as cstas adiciones se adaptan 
perfectamente a la prim era parte del 
progiraniii, y Ln am pi fail para a nadir al 
mismo mas figuras, Do hecho. a I pro- 
grama so lo an ad on mas lineas para in- 
trod ucir mas dates. 


EL CUADRO COMPLETO 

Como podras ver cumndo ha gas co- 


rrer el programs, la panialla queda 
ahora Ilona do objetos y person a jes T 
eon Lo quo el cuadro parcce complete- 
La serplento, el mono y el sol son ana- 
didos por las lineas ad iciom.il cs. 

Tambien puedes ahadir mas clefan- 
tes, arboles o eocodrilos si lo deseas, 
pero, en cualquier caso, dispones do 
un juego eompleto de personajes para 
util izar los on tus propios cuadms 


UIM SOL DE ALTA RESOLUCtOIM 

Observa quo con los graficos de ca¬ 
rat to res norma les se emplean graficos 
de alia rcsolueiori. Do heclto. no hay 
ninguna razdn para que no pried an 
combi mirse am bos, y la mozcla pro- 
pordona unos res u I rad os sorprenden- 
lenente bueno$- Et sol on eiUll reso- 
lucibn so forma dlhujando una scrie de 
radios may juntos outre si. 

Si lo deseas, puedes. inf rod ucir mo- 
dificaciones en el cuadro con otros 
gnificos do alia rosoltiddn. Por ejeni- 
plo. puedes a nadir mas col in as o in- 
duso trazar algunas lineas para hacer 
que el suelo iipbirezcEi rugose o ros- 
quebrajado. 


SIGUIEMTES PASOS 

Lei gam a do variadones que puedes 
obte tier con los UDG es casi ilimitada. 
A do m as de cambiar el jiumero do ser- 
pienles. de ilrboles, de monos, etc., 
tain hi on puedes utilizur los caracteres 
graftcos para que former estas ima- 
genes para cjiras COsas. 

Un ejetnplo evidente consiste en 
emplear las copEis do los Etrbolos con 
im color diferente (conio puede ser el 
bianco) para nubes. o como arbustos. 

En estos cases deberns tener on 
client a los contrasted dc color. 

Supdn quo qu lores emplear copas 
de ar boles conio arbustos; si coIoceis 
los arbustos cn las col in as, como estas 
son verdes. dichos arbustos no so vo¬ 
id n, a monos que desees que los ar- 
bu&tos scan rojos. por supuesio. 


AIMEMACIOIM DEL CUADRO 

Las ventajas do creEar imago nos con 
UDG no terminan con Lis posibilida- 
des do modificar Lej osoona una vcz ter- 
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tninada, si no que, con muy pocos cam- 
bios, puodcs convert irla on un cuadro 
animado. 

Por ojemplu, pani unlmar los ani¬ 
mal os, puedes definir uno o mas ca¬ 
racteres adicionales: otra trompa para 
ol ctofantc, una serpientc con hi ca- 
beza levantada o el mono cornier dose 
un platuno son solo algunas de las mu¬ 
ch as posibiladades. 

Emploando una soric do UDG tlis- 
timtos para las diferentes posi clones v 
presen tandolos succsivamcnic, cl mo- 
vimiento sc podra hacer mucho mas 
real, mas divert ido, mas amenazador, 
o como desecs. 


COMO SE ENCAJAN LOS UDG 

Si vas a emplear la animaddn con 
UDG o a crcEir image nos por ti [iiisnio 
podras encontrar en estas paginas los 
dibujos do la sorpionte y do! mono, y 
ol del cocodrito en el capitulo anterior. 

AI final so indican algunas posiblcs 
sustituciones de datos para el defanto, 
quo os piTsiblo que dosocs emplear las 
para la animation, 

Mientras k>s animales parccen que- 
dar limitados ei escenas de jungla o de 
zooldgico, los arboles, Lts nubos y los 
arbnstos podras utilizarlos en casi to- 
dos los cuadros quo dcsces rcalizar 
con un programs. Con nietodos simi- 
lares podras dibujar por ti mismo las 
cscenEis que doseos. 


AHORRAIMDO MEMGRIA 

El program;! descrilo emplea tina 
gran cant id ad do LlDG para demos- 
trarlc la forma de ulilizar tu order Ei¬ 
der mhs a I hi dc sus limit os, asi como 
proporcionarle algunos persona]os y 
figuras que puedes emplear en tus pro- 
pios etiadros. 
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Pero si descas o necesitas crear un 
cuadro impresionante con bastantes 
me n os UDG, puedes uiilizEirel misrno 
UDG una v otra vez. Por ejcmplo. 
puedes crear una manada enter a de 
defames. Q si en tu cuadro has in- 
duido una pared, podnis. cubrir una 
gran parte dc la pant alia con solo Jos 
UDG. 

Planificando cuidadosamentc io que 
deseas dibujar, podras crear con mu- 
cho esdro cuadros muy inte re sanies 
con un iiumern de UDG sorpreiulen- 
temente reducido. Sin embargo, como 
es bastEintc normal que al cabo de en 
tiempo dispongas de un gran numcro 
de UDG, las unicas ventajas quo pue- 
den obtenerse econamisando los 
UDG son el tiempo que ahorrns a I no 
tenerlos que tcclear y en la memonii 
oeupada por los datos, Como el pro- 
grama emplca una gran cantidad de 
me mod a para almaeenar los dates, 
puedes ahorrar much a de esta mc- 


moria almacenando Eos bytes que for- 
man los UDG cn forma de bloqucs de 
memoria y borrando despues las sen- 
tencias de los datos. NormaImente, el 
ordenador almaccna cada byte dos ve- 
ces: utia eti las posieiones de memoria 
que lien as con los datos (POKE) y 
tambidn con las propias sente neias de 
duios. 

Para almaeenar los datos como by¬ 
tes de eddigo. emplea: 

SAVE ”nombre ficbero" CODE x r y 

donde s es la direction de ini do del 
bloque de memoria que deseas alma- 
certEir* e y es la longitud del bloque. 

Para ello deberas conocer La direc¬ 
tion de inido del bloque de memoria, 
puesto que la necesitas para introducir 
Los datos o para eargar cl puntero con 
la nueva direeddn de initio. 

La longitud del bloque es muy sen- 
cilla: itormEtlmente es el numcro de 


UDG que lienes en la memoria mul- 
tipficado por 8, Efectivamcnte, cl an¬ 
terior programs que define los UDG 
para el cuadro dc Esi jungla emplea 
oclio bancos Lie UDG y cmpiezEi por ' 
septvrado cada banco tie 256 bytes en 
lugur de los 158 bytes minimos. La ra- 
zdn de esto es que tc perm ire variar el 
puntero con solo un POKE, cn con- 
traposicldn eon los dos habituates, 
rambien signifiea que si quieres al- 
macenar los bytes como eddigos, de- 
berds almaeenar un bloque dc 256” 8 
bytes de longitud. 

Por tan to, cste comando almaccna 
los bytes dc los UDG de la jungla; 

SAVE "UDG de jungla" CODE 
63488,2048 

Para volver a eargar en memoria los 
bytes solo bay que teclear LOAD"" 
CODE. Para volverlo a eargar en una 
direeeibn distinta a la que cstEib;i al- 
macenada, te bastara con a nadir la 
nueva direction de inido despues dc 
LOAD"" CODE. 


ANIMA TUS FIGURAS 

A continuation se indican algunos 
datos que puedes incorporar id pro- 
grama principal para animar el cle- 
fante, Simplemcnte proporciona una 
alternative dc la position de h\ 
trompa, por lo que puedes pasar de 
una a otra para Simular la animacidn. 

DATA 0,0,0,0,01, 1,3,3 
DATA 6,15,15,31,29,25,26 f 24 
DATA 24,24,12,12.6,0,0,0 

AdemSs, tendras que variar los co 
rrespondientes bucks FOR ... NEXT 
para cstablecer v presen tar los nuevos 
UDG. 

Tam bid n puedes mejorar el elefanle 
animado dcsplaztindolQ a una position 
uieis visible de la que aparece en el 
cuadro. 

La animacidn tiende a realgar un 
personaje, por lo que es una buena 
practlca emplcar las partes an i mad as 
de tu cuadro como la parte principal. 
De esta manera podr^s distracr la 
ittencion del observador de las partes 
menos llenas del cuadro. 
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MAPADE 


Si c! mcs pasado os hadamos entrega 
del eargador del programs SPIRITS 
de TGPOSQFT, este mes os 
ofrecemos su sensational maps con 
las mas do 80 pant all as que to 
formats 

En la carrera por los program as de 
kiberintos y arcades in td ad os cn et 
MSX por el program a SORCERY, 
ah ora TOPQSOFT* recegicmdo et 
guante, ha sabido crear on programs 
donde hail sabido incorporar las 
mejores ideas de los program as 
antetiormente heclios. pero sin 
olvidar de poner nuevos elemcntos 
que hicieran de esto un juego nuevo 
y disimio. 

Como content abamos er cl numero 
anterior dc INPUT MSX, en el que 
otorgamos a csta video-aventura 
nad a me nos que una calificaci6m 
total de 42 puntos, lo que cn 
realidad a port a in teres y relevancia 
a la apasionante la re it de innovar e! 
software son los cam bios que 
afeetan directanteme al 
planteamiento dc la action del 
programa. o at desarrollo en la 
pa lit alia de la idea origin at del 
gyionista, 

Y este objetivo lo ban logrado 


plenamente Eos crcadones de esta 
i me resame y terron'fica video- 
avenlura, cuyo mapa complete 
comenlaremos ampEiameiue cn esta 
oportunidad, 

Basado en la interminable In eh a 
entre el hien y cl mal, que esta vez 
se desarrollara en un infernal y 
mal el ico caslillo. donde nosotros, 
que representamos a las fuerzas del 


, deberemos protege r a dos 
persona jes que desde nuestra 
infancia nos fueron fielcs 
companeros de multiples avenuiras. 
Pern no llorcis ante tantos rccuerdos, 
y luehad liEisla que las fuerzas del 
mal os obliguen a doblegaros ante 
ellas (cosa que sera muv difitil, otsi 
imposible, si usais el eargador quo se 
encuentra en el ntimero 13 de 
INPUT MSX) 

Gracias al mapa podr&s hacer un 
mejor uso de element ns msigicos 
OOmo es JlI bola dc cristal, que le 



indica donde sc cncuentran los 
restitutes person a jes del juego, Con 
el mapa pndnis averigmtr 
verdaderamente donde sc halta e! 
person a je que estes interesado cn 
comroUir, y eneontrar el Etiejor 
cantino para ir has fa eh El mapa 
tambien tc sera de grEin ayuda para 
locEili/atr las daterentes palaneas que 
tc sirven para abrir puertas y 
pasadizos secretos, Pero no lodu tc 
sera tan fatil como abor t to pueda 
pareeer: en el mapa no aparecen los 
enenngos a quienes tend rati. que 
enfrentartc, pero recuerda que 
posces un ravo paralizador que te 
ayudara a librartc dc sus ataques. En 
case dc scr atacado deshaztc 
rapid a me me de tits enemigos* ya que 
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el los te ir;tn restando energia, y 
cuatido esta llegue a cero perder£s 
una vida, aunque si has usado el 
cargador... 

La aparicton siinuitanea do cam id ad 
de jnfurniacidn en pantalla quiz a te 
dcspislc un poco, pem en u>do 
momenta recuerda que to amis 
i m pgri ante es ni ante tier a salvo at 
mago que lii conduces por el caslillo. 
En el in a pa podrfts observar la 
disposition de rod as y cad a una de 
las H7 pan la I ias que lo forma n, y 
gozar de los espectaculares grAficos 
que adornan este Juego, En el 
Castillo eneontraras de todo; escudos, 
ftnliguos pergaini nos, ealderos, etc., 
pero recuerda que los ires element os 
mas import antes, y que tu debes 
consegutr* sou Ea bo la do crisial. 
antes citada, la varita magica. 
imp rescind lb ic para desencantar a 
miestra bella donee!la, y cl libro de 
conjtiros, que nos servira para 
romper eE hechizo que liga a la 
annuduni. 


1 
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B 
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El mapa de la aventura de 
este mes se llama SPIRITS. 
Aqui os lo presentamos 
fotoginificarnenle para que 
podai$ recorrer su& tetricas 
mazmorras, que rezufnan 
maidad, oJvrdo y terror, con la 
tranquiNdad de ilevar una 
buena guis bap et brazo: 
INPUT. No os perd&is por el 
camino y pensad que el 
pasadizo A ssgue en A y el B 
conlinua en B. Cosa logica, 
ino? 
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Soji muchos 
los madeJos de 
joystick disponihies cn el niercada 
para SPECTRUM, y casi tod os el]os, 
seiI vo id gun a exception (cbmo el 
CHEETAH 125), sc caraetcrizan por 
responder a disenos ante riores a 
J965. Em los uliimox a nos, las linicus 
tiovedades a pared das se han 
dedicado exclusivamente a cubrir la 
demunda do Jos nuevos modelos dc 
Ja gama SINCLAIR, con sus 
peculiares condieiones de 
eompatibilidad, olvidando casi por 
complete a los usuarias del 
SPECTRUM 4H K. Son muchas y 
muy variadas las razones que pueden 
explicar cste oomportamiento de los 
fabricates, pero todas ellas apuman 
a ]a acumulacidn de stocks, la 
competence dc los precios, la 
imposibilidad de incorporar 
innovaciones sustanciules, y, sob re 
todo, a uit eserto grade dc saturacidn 
del me read o. Por estos motives, la 
reciente aparicidn del CHEETAH 
125 y del pole mice ZERO-ZERO 
ban tenido lugar como «rebote» de 
las versiones para cl PLUS 2, y no 
como disc nos origin a riamente 
pensados para los mode los dc 48 K. 
Uespues dc lo cspucsto, nadic debe 
ext rati arse de que el joystick dc mfis 
avanzado disefio y de caracterfsticas 
mas novedosas no sea un 
lanzamiento de 1987, si no un 
«Yeteni[io» que sc ha man tenido a Ja 
cabeza desde 1985, ftgurando 
siempre enirc los mej ores. Se trata 
del modelo superanaiomieo SPEED 
KING, comcrcializado por la firm a 
KON1X y relanzado en Espaha por 
cstas fcchas. 


SPEED KING KONIX 
CUADRO-BALANCE 

DSMENS10NES: 10 x 13 cm, 

LONGITUD DEL CABLE; 165 cm, 

OISENO: Base y arnpunadkira anslomicas, sin ventosas. 
HARD: Si Sterna de micros witches. 

DISPAR0: Un solo baton en la base, can disbosician anatdmica. 
VELOCI DAD Y PRECISION: lExcelentes. 

EJE DE EMPUNADURA: Acero. 

PRECIO ORIENTATIVO: 3.000 ptas- 


SPEED KING: 
UN PEQUEN0 
GRAN JOYSTICK 


El diseho 
del SPEED 
KING rompe con d 
tradicional sisiema de andaje eon 
ventosus a una superfieie plana, 
incorporando una base smatbmica 
que se adapts perfeciamenlc a la 
mono izquierda, mienIras la derecha 
queda libre para maniobrar con la 
einpunadura (un aspccto negative: 
esta ventaja puede convertsrse cn 
inconveniente si el usuario cs /undo). 
Por otra parte, la disposition de] 
boton do dispa ro hace posible su 
mane jo con la misma mum) que 
sit jet a el joystick, sin forzar ]a 


posickiu del dedo, evitando ast cl 
can sand o prematura. 

EN EL INTERIOR 

DE LA PALANCA DE MANDO 

En cuanto a las intcrioridados dd 
SPEED KING, bay que senntar el 
ejt dc acern, que guranUza una gran 
restate ei cia a los movtmienlos 
vjolentoSj y d xofixticado hard dc 
micros witches, que proportions una 
extraordinary precision v rapidez 
que no ha podido superar ninguri 
otto modelo hast a la fecha. 

E\ unico aspecto negative que 
podemos resenar, a parte de] ya 
mencionado, cs la inexisteneisj de un 
segundo boldn de dispam, no 
tmpresclndible pero si muy util. 

Por uitimo. una list a de 
compaiibindadcs que eullv pocas 
palancas de mando pueden lueir: 
SPECTRUM, SPECTRUM PLUS, 
COMMODORE (64, 128, dfx plus 
4 t VIC 20), ATARI, DRAGON, 
MSX, AMS I RAD y ORJC 
Como podeis apreciar, el joystick 
comercializado por Ja firma KONIX 
puede osteEitar una versatilidad 
re a I me nte e x t mo rdi rta riu. 
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menus, que se transforms 
acckkntalinente mientras prepuraba 
cterta pod on m&gica + antique sit 
propdsito, naluralmente, era bien 
distinto. El pobre Mervyn pretend ia 
Donveriirse, m creed a los buenos 
oficios alquimicos de tin misrerioso 
brebaje, cn tm muscuioso galdn do 
cine, una especic de cruee cut re 
mod do masculine de ropa interior y 
culiurisia fisico al cstilo tie Ram bo, 
Desgraciadamenfe, cn la emocidn del 
momenta c timbre, Confutidid uno de 
I os ingredie ntes, y aliora, cn vez del 
cuerpo a po lines con el que tan to 
habia son ado, no tenia mas que el 
ridicule aspecto de un insigrifkante 
renacuajo. El destino se h ybia 
ensafiado cruel me nle eon cl. 

Sin embargo, el desdichado Mervyn 
pronto tuvo motivos para 
agradeeerse a si mismo su lorpeza: 


de rana 

nunuscuki. pa so 
dcsnpcrcibido y 
pudo vivir para 
contarlo. 

Desde entonces 
ert sit pequciio 
eerebrs tic rana 
solo hay silio 
para un linko 
pensainicmto 
obsesi vo: vengar 
a los suyos v 
reasperar su 
apnriencia humana... 

(;Con sti ayuda, claro!) 

El juego se estruclura en ht nada 
depreciable cifra de 64 ni voles de 16 
pant a [las cada uno, reparlidos en 
sc ho grandcs bisques denominados 
mazmorms. Como cada mazmorra es 
identica a las deinas, la secuencla de 


sagrados que estos no se atreveran a 
pisar. Apa rt e de los pode res 
tempo rales, que con Here it los 
GLIFOS (p. ej., ver un mapa en que 
apureeen las salas explOradas), 
sicniprc licvarcmGS con nosotrus 
cuatro hechizos dist antes, tad a uno 
de naturaleza dife rente, que son la 
clave del juego. 


in ape ado se repite cada echo nivoles. 
En cada nivd hay doee Warlocks, 
entre magos y nigromaittes (estos 
iiltimos, imtcho mas peligrosos), En 
los niveles inferiores, los nigromantes 
son bastante cseasus, intent ms que 
los magos a bun dan en una 
proporciun dc diez a uno sobre 
estos. i'am bien cxistcn canlidadcs 
inago tables de guardianes y arm as 
magicas, que se generan 
espontitneamente desde unss 
artcfactos colocados a ial efecto en 
casi todas las tiabilaciones y pasillos. 
En me nor numero, se encucntran 
grabados cn el siielo una eerie de 
si mbs! os magicos, llamados 
GLIFOS, que constitute n la unita 
ayuda dc que disponeinos, Todas 
el los sirven para protegernos de 
nuestros enemigos, pues son lugares 


PROGRAMA DEL MES 


RANARAMA 

■ • HEWSON ■ ARCADE 

La rana Mervyn, cn verdud, no era 
tan rana ComO pa re da a simple vista. 
Mas bien, y hast a derto pun t a podia 
felidtarse por elLo: se trataba de un 
joven aprendiz, dc mago venido n 


Eos Warlocks, lemibles magos 
nigromantes de los bosques del 
Norte, atacaron por sorpresa la 
misma noche de la transformacibn, y 
mientras los companeros de Mervyn., 
alumnos de la cscuCla de «.artes 
magicas*, morfan o cran capturados 
a man os de los invasorcs. el, 
prole gido por su inoccnle aparieucia 
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LOS HECMIZOS 

Existen 32 hechizos distintos, 
agrupados en cuatro tipos de oeho 
ni voles. 

EJ primer lipo es eE I lam ado 
POWER (poder), y sirve para 
proporeionar la energfa quo permit a 
usar con exito I os tie mas hechizos, 
ademas dc dar Fuerzas por eiicimn 
del nivel natural de resistencia. 

El seguudo thpo cs el denominado 
DEFENS A, y como su nomhre 
i lid tea, sit tlnica utilidad es la de 
protegernos en el combate fisico 
contra nuestros enemigos. 

El tercero, Itamado ATAQUE, es el 
que determine el poder de disparo. 
Por ultimo, tenemos un cuarto lipo 
de beebizo, denominado «DE 
EEHCTO», que permiie disfrutar de 
una serie de pod e res di versos, scgiin 
su nivel, 

Tanto la eapaeidad de disparo como 
la de defensa dependen de la 
relation que se estableoe entre el 
nivel inagieo de nucstros hcchizos, 
del 1 al 8. y el nivet de poder de 
cadu ertemigo, catalogudo en Ea 
misrna escala, Por ello, el principal 
objetivo del juego es obtener 
hcchizos cad a vcz mas poderosos, es 
deeir. de un nivel mas proximo a l 
octavo, que nos per mi tan 
enfnentarnos con posibilidadcs dc 
exito a los guard) anes in as 
pcligrosos. Entre Uts adverstmos mas 
(cubbies debemos cilar al Caballero 
Guardian (que es muy resistente y 
cucnia con poderes m^gicos), la 
inorUfera Serpicnte, el Fautasma 


(que es cast invisible y ahsorbe una 
gran cantidad de energia), la Arana 
(que es muy peligrosa y persistente) 
y la Gargola (que es cl enemigo intis 
poderoso y terrible). 

COM BATE RITUAL 

Para conseguir los hcchizos, es 
uceesario reunir determ in ad as 
combinadones de RUN AS. que los 
Warlock guard an cetosameute. Cada 
vez que nos c neon Irani os con un 
mago o uei nigrum it me, debemos 
entablar un ^combate ritual* que nos 
permit Ira derrotarlos de forma que 
sus co nod mien tos, Lransmitidos en 
forma de RUN AS. pa sen a nosotros. 
EL Mconibale ritual* tienc lugar con 
solo toear at Warlock, Cuando esto 
ocurre, aparece en la pantalla la 
palabra RAN A RAM A con sus letras 
desordenadas, y sc nos da un tiempo 


I unite variable (segun cl poder del 
Warlock y la eficacin de nuesiros 
hechizos) para recomponerla, Si |o 
logramos, volvemos at escenario de 
la action y nos encontrnmos con 
unos dcsieltos. las RUN AS. que 
debemos capturar antes de que se 
dcsvttnezeart parti siempre. Despues,, 
si queremos activar con el las mievos 
heebizos, debemos acudir a I CiLlFO 
de MAG IA mas proximo, y opera r 
en el con las pa lit a LI as dc 
i n fo rm aci d n-tied vacidn 
correspond ientes. 

La derrota en un «combate ritual” 
supone la perdtdtt del hechizG dc 
poder que se pose a. En su lugar. se 
obtiene olio hediizo de nivel rrtfnimo 
(nivel MORTAL). Cuando, 
encontrandose en este nivel mini mo, 
se sufre una derrota (ya sea en 
com bate ritual o en combate fisioo), 
o se agota tod a la energfa por 
desgaste, entonccs se scabs cE juego. 



CONSEJOS 


Dcbcs procurer que los hcchizos de 
poder tertgan s temp re un nivel mis 
alto que los dc defensa, a tuque y 
efecto, ya que, dc lo com ratio, tu 
energfa sc agotara rapidarneme. 

No sobrevaLores los tieebizos de 
efecto: el segundo (SEE), a pesar de 
su bttjo nivel, puede resultar mas util 
quC orros led rica mettle mds podemsog, 
Nunca accedas a un nivel superior en 
cada mazmorra sin antes asegurarte 
de que tus hechizos son iguales o 
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mayo res a I nivd de poder de los 
enemigos que ic vas a eneontrar. For 
e tt-mplo, scria temerurio pasar al 
segundo nive] sin haber conseguido 
becbizos de nive! superior a nno. 
Durante el comhate fisico. los 
GL1FOS puedcn ser de una ayuda 
inestimable. Si te cotocas sobre 
alguno dc ell us, no solo estart'is 
protcgido del rocc mortal de los 
guardianes y las amtas magicas, si no 
que adenitis podras disparar contra 
elies como si de on ^tiro at bianco* 
sc tratase. No obstante, no es ■ 
convenience entretenerse demasiadp 
matando enetnigos secundarios. ya 
que suponc perder licmpo y energia 
sin recibir niitgun bene fid o 
apreriablc a cambio. Si en alguna 
estancia la present Ea de enetnigos se 
haee agobiunLe, la mejor tact tea 
consiste cn destmir los generadorcs 
que Eos produce n. 

Haoer un mapa no es una esirategia 
tan util como pueda pa race r al 
principle: los GLIFOS no aparecen 
siempre en los mismos lugarcs, y los 
puntos de transport? magico 
abundan lo suficicnte como para 
eneontrar los rapidamerle con sdlo 
buscar al azar cn eualqui'cr direeddn. 
Por otra parte t algunos GLI FOS 
permiten ver un piano general cn el 
que se sen a I a eE punto donde nos 
cneontramos, y las habitaeiones que 
hertios record do hasta el momento, 
Por ultimo, no de be trios confundir 
los ^eristales de energia* que 
aparecenin fiotando en much as 
esumeins, con enemigos quo vienen a 
robarnos fuerzas- Los cristales de 
energia, reeonocibles por su forma 
de diamante, refuerzan cl hechizo de 
poder que portanios, rctardando su 
agotamiento, Cuando la ran a 
empiece a parpadear, sera serial de 
que su energia se acaba, y, por 
tanto, para evitar una muerte segura, 
no hay mas sotuddn que aelivar un 
tiuevo hecliizo de poder (s5 tenemos 
tunas suficicntes para ello), o buscar 
los preciados cristales. 
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la mas adictiva video-aventura de la 
tempo rad a. y probable men te uno dc 
los me jo res juegos que lum visto la 
biz en los liltimos tiempos. 

Como no liemos logrado cneonlrar ni 
el nuis mini mo detalle negative), y 
tampoco estarfa bicn que nos 
deshieieramos cn exeesivos elogios, 
miis vale que nos remitamos a la 
labia dc cal if lead ones y os dejemos 
juzgar a vosotros. 

Terminarenios. eso si, semiinn do la 
exiraordinaria calidad dc los graficos 
v cl clevado grade de adiccitin 


alcanzado. detalles que cvidcncian 
un irabajo minucioso y an enorme 
derroclie de imagination, 

Una vc^ nuts, la firma HEWSON ha 
sabido de most rar que lo mas 
comcrctal no ticne por que scr u la 
vez lo me nos original. Ojald cunda el 
cjemplo. 


AMMACWN 
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GRAFICOS 

10 

COLOR 

10 

SONIDO 

8 

TOTAL 

47 


RAN A RAM A es, sin ninguna duda. 
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MARTI A NO] DS alcanzaran su 
prupdstLo: cEipi l] r:ir in nave pant 
cop tar SLi modema tecnologla y 
construir una flat a eapaz de invadir 
la Tierra. 

Tu mi si do eonsisle en reparar y 
proteger al supercomputatJor 
MARKON, destmyendo a Jos 
invasores, e imped ir que estns 
tonsignn s li objetivo. 

Para ayudarte un poco, lu consota tc 
informara en to do mo men to de tu 
posicibn en la nave y la situaeibn tie 
los sectored que debts defender, 
Tanto en Gran Bret aria conto en 
EspEtna esie programs est a 
provoeando gran division dc 
opiiiion.es, Mientras unos dicen que 
no esta en la line a habitual dc 
ULTIMATE, si no mucho mas aba jo. 
otros ail man lo contrario, En 
n nest ra op in id n , M A RT l A NO I DS 
mereee urm ealificaeidn intermedia* 
teniendo en cuenta que presellta 
notables desequilibrios entre unos 
aspectos cal if Scab les to mo mtiy 
positives, y citrus mas bien medioeres. 


MART1AN0IDS 


• ULTIMATE ■ V ID EG-A VENTURA 
GRAfICA 


Despues de im largo viaje. la nave 
autotripuEada MARKON I ha sufrido 
un ataqite masivo de los bhrbaros 
alicnigenas. La mayor ptirte de los 
com pun enles aetivos han sido 
danados, Jos programas sc han 
borrado de la memaria de datos, y 
los robots de defensa han sticumbido 
en ei eo in bale. Solo un milagro 
podria impedir que los invasores 
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TARZAN 

• MAH TECH 1 VIDEO-AVENTURA 

La firma MARTECH ha pubticado 
en Hspimtt mi nuevo programs que 
tit ne por protagonista nada me nos 
que a I mftico TARZAN, sin falls r en 
el rcparto la bella JANE, ni k>s 
malvndos WAMABO, presentes en 
easi todas las pelfeuhis del bcroe de 
la selva, 

Asi puts, el Rey de la Selva, Inego 
tie pa se arse per las pan tail as 
cinema logriiieas de to da Espaha, 
entarnado por el actor Frances 
Christopher Lambert en In pe lieu la 
Greystoke. de Hugh Hudson. I legs a 
las pa nta] las electrdnicas con su 
bagaje de emodonantes aventuras 
por la misteriosa jungly, todavm 
virgen y no hotlada por el inn parable 
avarice de la civil i/aeidn. 

En esta ocasidn, TARZAN se 
enfrcnia a una peiigrosa video* 
aventnra digna del propio Johnny 
Weissmuller—el record ado larz&n 
cinemalogrAfico—, con un 
argumentu chisico del genera: las 
side pied ms prcciosas conocidas 
como *los ojos del arco iris^ han 
sido robadas del templo de los 
Wamabo, y £slos. temiendo una 
terrible venganza de sns coliSricos 
dioses, Iran ruptado a JANE para 
ofrecerla en sacrificio. 

Aden as de conbalir contra los 
guerreros de la tribu Wamabo, 
nueslro fornido heroe debera 
enf rent arse a todo tipo de tier as, y 
superar numerosas tram pas y 


obst lieu los si quiere volver a ver eon 
vida a su JANE. 

Los creadores del programs han 
idea do un original sistema que 
permite rerrear el ambiente seWatito 
con bastante realismo, colocando 
unas sombras de dr boles en primer 
lermino. que dan la sensaeidn dc que 
el espectador con tempi a ta cscena 
oculto entre hi mulcza, como si 
esiiiviern dentro del escenario, Pero 
esto, uni do a 
itn desarrollo 
grafico profit so 
en partial las 
bicromaticas, 
difieulta a voces 
la vision de lo 
que esta 
oeurriendo, 
sobre todo si 
repentinamente 
sc haoe de 
noche, y obliga 
a in a n tener u n 
elevado grade 
de 

concentracibn 
cri ej juego, provocando uit rapid o 
cansancio, 

Por otra parte, e| nivci de adieddn 
es bast eiE ile bajo, a pesar de que en 
1 ideas gene rales se trata de tin 
programs de gran cal id ad. con 
detalles (como el disefio gr^fico), 
muy acertados. 

Antes de terminar, os haremos 
algu nas recomendado n es: 

En varins pan (alias, apareceran unos 
cofres negros disimulados sobre cl 
fondo de la escena, d if idles de 


id cm Mica r. en los que se pueden 
encontrar objetos utiles para 
co m plot a r la avenlura, como 
linternas, soyas y escudos, ‘l ambten 
ex isle n n time rasas /.unjas y di versos 
obstacu los igua I client e ocultos, poi' to 
que es convert] ente avanzar siempre 
eon sumo cuidado, econoniizando a! 
max into las encrgias, 

En cuanlo a los enemigo- 


persists nfes, lo mis practice es useit 
cl *sal to acrobatico^ (propio del 
mejor programs de ttrtcs marciales) 
para escapar, sin perdcr el tiempo en 
computes. 


animaciqn 

7 

MTERES 

6 

GRAFfCOS 

8 

COLOR 

7 
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32 




INPUT 50 





























poner en practice todas sus 
habilldades, La pecicia y los buenos 
relic jos jggaran siempre tin papcl 
fundamental. 


Con un elevadlsimo ntiniero de 


HEAD OVER HEELS 

• OCEAN ■ VIDEO-AVENTURA 

Recogiendo el modelo creado por 
ULTIMATE con cl famoso 
KNIGHT LORE* OCEAN ha 
publicado un nuevo FILM ATI ON on 
cl que sc linen lodos I os elementos 
que, por separade, dicron d exitu a 


dispa rar donum con su tmmpa 
m^ica. HEELS, en catnbio* apemis 
da pcqnefjos saltttos y no sa.be 
disparar. pero puede trgnsportar 
ohjetos en su bo Iso. 

La mision quo gggarda a kih bos 
person a jes consistc on liburar tie la 
lirania a ]os cinco planet as 
control ados por el imperio de 
BLACKTOOTTL cniCOnir;mdo las 

citico coronas 


partial las (mas de 300) y un discrio 
grafieo realmente itriprestonante, el 
equipii tic programadores que 
desarrolld at mitico BATMAN ha 
conseguido dotar a HEAD OVER 
HEELS de todo Eo quo sc puede 
pedir a un buen juego. Esperantos 
que el proximo sea todovin mejor. 
jBienvcnidos a Espaiia ostos tlos 
si m pa l i eos pe rso n aj es. 



que simbolizan 
sie libcrtad. Para 
log ratio, 
deberan 
aprendcr a 
repartirse cE 
trabajo seglin 
las aptitudes de 


Ammcm 

10 

INTERES 

9 

GRAFICOS 

10 

COLOR 

8 

SQNIDO 

8 

TOTAL 

45 


niucltos otros program as, como La 
perspective tridimensional en 
proyeccidn iso metrics, a La 
coesisicoua dc Jos protagonists que 
frabajan en equipo, 

El argumento sc resume en las 
peripetias tie tins cut'Loses seres 
simbidticos, llamados HEAD 
(cabeza) y HEELS (talones), eapaces 
de mtirse en un solo cuerpo y de 
separate despues para actuar C-ada 
uno por su euenta. 

HEAD puede dar grandes saEtos y 
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INSPECTOR GADGET 

• MELBOURNE HOUSE ■ ARCADE 

El famoso INSPECTOR GADGET 
vuelve a la eargy en su IticKa contra 
los agcntes dc MAD. De nuevo, 
debersi usar sus *Gadgetopodcrcsw 
para cultninar eon esdto otra 
amesgada misibn: dcsactivar las 
bombas que han sklo colocadas cn 
todos los, circos tie la ciudad. 

Con irn nivel de calidud idcnlea muy 
interior a] hub it ua I cn La mayorfo de 
sus producciones, la firma 
MELBOURNE HOUSE acaba de 
publican eu Espana la version 
«miero» dc las aventuras dc este 
peculiar *supc(detective», respetando 
los rasgos caricature5C0S dc la serie 
de dibujos animados. 

Con la ^invisible* ayuda dc su dulce 
sob r ilia y del hero Leo y transfnrmista 
can que los acompatia, el susodieho 
inspector hard dar al leasts fas 
perversas maquinaciones dc la 
cohorts dc csbirros del doctor Gang, 
Las sobre mesas tekvisivas 
domin kales tend ran, dc esta maneru, 
continuacidn cn la pan tall a dc 
nucsiro ordenador. 

E1 programs sc desarrolla sin niiigun 
lipo de coin plica ciones, con un nivel 
dc dificultad quizas excesivamentc 
bajo. Probable me nte, los auto res ban 
querido conseguir de esta forma quo 
el juego estc a I alcance del publico 
dc la serie, mayoritari ament c de muy 
cotta edad. elimitiando todo aquello 
que pudiera ahadir alguna 


complcjidad a la action, 

En sunia, podemos deeir que sc trata 
de im programa muy indicado para 
los mas pequenos de la easa, pern 
excesivamentc simple y poco adictivo 
para los usuarios acosturnbrados a 
aceptar grandcs reios. 


ANIMACION 

6 

INTERES 

5 

GRAHCOS 

B 

COLOR 

4 

sorno 

4 

TOTAL 

24 
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TRES NUEVOS 
TITULOS DE 
FIREBIRD 




Con un abultado catalogo de mas tic 
25 titulos, y los mils curiosos 
procedimicntos de vent a. la serie 
SILVER de FIREBIRD sigue 
acaparando una parte importanle del 
triereado hrilunico, junto a la 
o m n ipre se n te M A STE RTRON1C. 

Sus expos bores de vent a pueden 
encomrarse en Ion mas insdlitos 
Inga res, no solo en liendas 
especial i/adas v grundes Ediuacenes, y 
sus precios (unas 500 pts.) no ticncn 
compctencia (no olvidemos que la 
operation *bajada tie precise solo ha 
leuido liigar en Espunu: en Gran 
Bretaha se sigue pagando por tin 
^nunnero uno» el equivalents a 2*000 
pts), 

Paeientemertte, la finna espanola 
DRO SOFT ha venido publicando en 
nuestro pais la mayor pane de estos 
lituEos, lanzando varios eada mes. 
Esta vez les ha tocado el turno a 
THRUST II. HEL ICHOFPER v 
WILLOW PATTERN. 


THRUST II 

THRUST II es La segundu parte de 
un inleresante arcade que tuvo tier to 
exilo durante el ano pasado, gradas 
a un phinleamiento seneillo v 
adictivo a la vex. 

Continua la guerra coil el Itnperio. 
Las fuerzas rebel des ban capturado 


un pequeno plancta artificial, pero su 
atmosfera, aun sin purl bear, impitle 
que sea util a los propbsitos de sus 
oeupantes. La mi skin consist e en 
ex truer del fondo del planets los 
depdsitos de components quimicos 
que pueden I ini pin r definitivamente 
la atmdsfera, y aeabar con los pocos 
guardfanes del Itnperio que aiiu 
quedan cn el interior, 

Un arcade bien heeho, y sin duda 
uno de los mejores programas de 
FIREBIRD 


HELICHOPPER 

Se trata de un program a de rescale 
con 2i> paralalias, era el que deberas 
poner a salvo at mayor numerO 
posible de CLONES, maniobrando 
entre dt versos obstSculos y enemigos. 
Desdc e l pun to de vista grat'ieo , ei 
programs deja niucho que dcsear, 
pero a I me nos no le falta una buena 
dosis de adiceidn. 


WILLOW PATTERN 

La avenlura transenrre cn el interior 
de un labcmitico jardm oriental, 
plagado de samurais, donde se 
eneucnlra encerrada una prinee&a. 

T'u misidti. naturalmente, consLste en 
reseat aria, Para Logoi rlo, dehcras 
derrotar los samurais que te corten el 
paso, y usar adecuadaniente varios 
Objetos. Existen eiertos lugares en 
los que se produce un especiaeular 
cam bio de ambient acidn, que 
eonsigue dotar al juego de una 
especial original idad, sob re todo si 
te tic in os en cuentu que no sblo 
eambia el c scenario, sino tarn bien cl 
plantsamiento bbsico del juego; sc 
trata de pruebas aisludas de 
habilidad y re fie j os, easi a I marge n 
del desarrollo de la avenlura. 

En definitive, un program a original 
eon huenos gral'ieos y \a dosis just a 
de ace ion. 
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AUF WIEDERSEHEN, 
MONTY 

• GREMLIN ■ ARCADE 

AUF WIEUliRSEHEN, MONTY M 
una nueva a venture del popular 
MONTY MOLE, cn la quo sc repite 
una vcz mas d traditional modulo du 
arcade tipo MANIC-MINER tisado 
cn las aventuras precede ntes. 

El juego esty ambient ado en 10 
paises curopcos, inciuido Espana, a 
t raves de los etudes Monty debar a 

i« 

husear el dinero que necesita para 
coniprar 3 ei isla de Montes. un Lugar 
paradisi'aco donde piensa retirarse a 
vivir, 


E3 nivel de difieultad no es ran alto 
CO mo el habitual en 111 inayoria de 
los juegos de su clase, pero esto, 
lejos dc restar interes al programs, 
eonlnhuye a liacerlo t re men du me [lie 
adictivo desde la primera pariida. 
Por otro ]ado. la gran vyriedad de 
gn-ifieos, siluacioncs y person a jesq 
hacen tie cad a pantalla un 
microcosm os eon person alidad 
prop [a, hasla el panto de que en 
ocasiones hay escenas tar distintas 
que pare ceil cor responder a 
programas diferentes, 

En deliniliva. un buen arcade de la 


vieja escuela, con un enfoque actual 
Un dels lie aneeddtieu: cuando Monty 
llega a un pais, se oye el him no 
nacional de este. Sin embargo, 
cuando entra a E spa ha sc oye 

vi™ Ls-paim. dc MurtOlO Escobar. 


ANIMACION 

8 

INTFRES 

9 

GRAFICOS 

9 

COLOR 

7 

some 

7 

TOTAL 

40 
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EXPRESS RAIDER 



* US GOLD ■ JUIGO 

jPOR FIN! 

Despuds de haber figuratio durante 
nieses en las paguias de pub! id dad 
dc todas las re vistas dc software, por 
fin hiii si do publlcada en Espana la 
version SPECTRUM de EXPRESS 
RAIDER, mil magnified programs 
que nos traslada a Eos ttempos del 
lejano Oeste* cuando asaltar Irenes v 
pel ear sobre vagones en march a era 
algo habitual. 

Deberds hacerte eon el control de 
tin tren and an do por el l echo dc Ids 
vagones, Veras cbmo, a I ins [ante. Ids 
techos sc Henan de gente con cara dc 
pocos amigos que te atizaran a la 
prirncra de cambio, Pero los peEigms 
tambien s-icnen de los a ires; 
numerosas aves pueden abatirse, 
sob re u causa mJoie da nos que ha ran 
ha jar tu indicador tie fuerza. 
Desarmado. de betas derrotar a Ids 
enemigos combat iendo en Cases 
sui^sivas de gran difieultad* usando 
tan sold la hahilidad eon los pufios v 
tus reflejos en el asatto. Dispones de 
8 movimientos dife rentes, y 6 tipos 


ANlMACtON 


8 

MTERES 


8 

GRAFICOS 


9 

COLOR 


8 

somo 


5 

TOTAL 


Jff 


posibilidad de seleecionar una opribrs 
que liara inutiles los esfuerzos 
dc los buscadores de pokes, y que 
scgnra men te emu si asm a ni a los 
inenos ex pert os: para no desesperar 
a los principiantes, los autores ban 
ineluido una modalidad de juego con 


nada me nos que ;32 vidas i 
A parte de estc interesanic aspects 
tambien debcinos valorar 
positivatnente el nivel de adiceidn, cl 
aeertado dlseno grafico y, sob re 
todn, la diversidad de pruebas y 
^scenarios. 
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SABOTEUR II 


superior izquierda. estati 
almaccnudos los misiles, lisios para 
ser disparados, y on d lado opuesto 
sc encuentra c] arsenal. El resio dc 
las insta lac tones cstan ecupadas por 
pasillos sub terrene os y /onus cn 
construction. 

I lay dos tipos dc er cm Egos en el 


* DURELL . VIDEO-AVENTURA 


SABOTEUR ha sido y siguc sicndo 
uno dc los mayores mitos de la 
historic! del software. Est;i 
consular do como un ejeinplo 
paradigm a tico dc lo que debe scr un 
buen j tie go dc uceion, y su moldc, 
desgradadamente roto. ha si do 
imiiEido cn repetidas ocasioncs por 
muchos otros program as de cxito. 

A bora, por Un pod remos disfrutar de 
la seguntla parte dc csla sen&acional 
videoavenlura, publicad;; bajo cl 
prcsiigcoso sello de DURELL 
SOFTWARE 

A l igual que en la primer a parte, el 
oh jet i vo del juego eons i sic cn 
<dorrarse» dc mi Hones, cobrarcdo 
fue ries suinas por realizar una serie 
dc sabotages en instabiciones 
eneniigas- Concretaniente. sc trata 
de rcunir todas las cintas perforadas 
que sc clieuenIran disperses en el 
Centro dc Mando de! Dktador. 
ustfndolas despuds partt reprogram a r 
los ordenadores de control, y desvear 
a si la iraycctoriu dc los misiles que 
van a ser lanzados dc un momento a 
otro. Si ademls sc oonsigue eseapar 
eon vida. comic nza una rueva mis Ion 
eon mayor grado de difieultad. 

La unica via dc escape es an largo 
hind situado en la zona nuts 
profunda dc la base, al lado 
izquierdo dc la pantalla, en el cual 
espera una moto que permit Era 
alejarse rapid ante ute. En la parte 


interior dc la base: los guardianes 
andro ides, dc mayor poder y 
envergadura fisicu, y lus panteras 
negnis, pcligrosos ani males salvajes 
que andan sucltos cn algunos 
sectored. Ambos son muy resistentes 
ei I els preenrias armas de que sc 
dispone para convpletar la mis ion, y 
por ello rcsultan cgpedalmente 
difidles dc derrotar. Cuando las 
rircunsiancias sc pongan difklles en 
cl conibnte, lo mejor cs huir 
r^pidamente, sabre todo si hay 
varies eneinigos cn bi mi sun a 
pantaila, ya que normal meme son 
neeesarios mas dc tres golpes para 
dcrrotEir a un solo cent ratio, y 
perder una sola vida supone lener 
que empezEir dc nuevo. Tambien sc 
debe toner cuidado dc ne> tocEir el 
muro electrifieado quo rode a las 
inslalacioncs, pucs su descarga 
produce la niuerie instant alien. 

Lu lactica mas eficaz consist? en 
arriesgursc solo por las acciones que 
resultsn mas rentables: terminar con 


AMMACION 

8 

INTERES 

9 

GRAFICOS 

7 

COLOR 

7 

somo 

8 

TOTAL 

3B 


cxito una rtiisidn T por cjemplo. 
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EL20C0 

Vendo Modems de Spectrum caseres 
para pasar programs? par telefono, Pa¬ 
blo Mari Inez, 0/ Rod as, 19. D3180. To- 
rrevieja, Alicante. Tl. (965) 71 01 86. Lla- 
mar a partir de las 4 de la tarde. 


Vendo cassette-recorder especial para 
ordenador con manual, models? Philips 
D-6260/30 pt)r 5.500 pts, esta va I ora da 
en 11.000 pts (con un mes de uso), Ja- 
cobo. Tl, OS5) 22 2 S 38. 


Desea crear un CLUB de usuedos del 
ZX Spectrum y del MSX a nivel nacio- 
nal e international. Escribir a: Roberto 
Ramos Perez, P,° de los Fueros, 7,1.* C, 
Sanguesa 31400. Navarra. 


Intercambio/vendo juegos y otros pro¬ 
gram as de apllcaciones para el Spec¬ 
trum 48K. Fatilito lisle con todos los tf- 
lulos a cam bio de los que se mg 


Ofrezca. Seriodad en la caJidad de cin- 
tas y grabationes, Angel Maria Gonza¬ 
lez Garcia. Avd. Virgen de Argeme, 5, 
1,* C. 108O0 Coria. C Deeres, Tl, 
£937) 5 0 04 10. _ , 

Inte ream bioj've ndo prof e rentgmen te 
juegOS 3 niveE national e internacionaL 
Poseo las ultimas novodades. Roberto 
Rpmos Perez, P, u de los Fueros r 7, l, a C- 
Sanguesa 31400. Navarra. 

Vendo Spectrum, Interface Kempston y 
Prugramable, joystick Quickshot IE, ma- 
nuafes en ingles y Castellano, mas un 
liforo sobre el Spectrum. Llamar a Da¬ 
niel Costa Royo. Tl: 3D3 25 59. Barce¬ 
lona. 


Vendo ordenador Dragon 300, un mo¬ 
nitor color, 15 juegOS, pretio a convs- 
nir. Mercedes. TL (83) 330 40 57, 


I nte rca m bio/comp ro/vend o pro g r amas 
para el Spectrum Plus, ademas compro 
MODEM para dicho ordenador. Mandar 
ofertas a: AntonioToribio Carreras. Po- 
Eigono Puerta Madrid, sector Malaga, 
edf. Granada, puerta B, 3. 13 Szq, 23740 
Andujar, Jaen. 


Cambio juegos Spectrum, Tambien 
cambio y compro libros de cbdigo ma- 
quins- Enrique Alapont, Cf Maestro 
Vails M3. Valencia (46022). TE: 
(95) 367 53 94. 


Intercam bio pro gramas para el Spec- 
trum 48K, Tengo muchas novedades 
(Bomb Jack 2, Ace of Aces. Short Circuit 
y muehos mas). Javier Dominguez Te- 
jero. C/ Ramon y Cajal', 22, 1.° D. San- 
turce. Vizcaya. Tl: (94) 461 60 33. 


Vendo ZX Spectrum 4BK, interface 1, 
Microdrive, 2 interfaces para Joystick, 2 
joysticks de Spectra video (Quick Shot I, 
|]J, 3 cartuchos de microdrive, 20 cas¬ 
settes de juego, 10 cintas de cassette 
especial computed or virgenes. TodO 
nuevo. S6lo 25.000 pts. Pedro Jesus 
Arce Guerrero. Urbanizatibn Las Bri- 
sas x 1, C/ EqEo. 6. Mairena de Aljarafe. 
Sevilla. 41927, Tl: 76 20 66, 


Intercambio juegos, ideas y mapas del 
ZX Spectrum. Interesados escribir a: 
David Alvarez Gonzalez, C/ Saavedra, 7 
G. 15 E, 33208 Gijdn, Asturias. 


Club para todos los amigos aficionados 
al Spectrum y compatibles, Promete- 
mos contestar a todas las cartas. I, Soft. 
Club, Bda/ Torresote. C/ Triana, 4. 
11401 Jerez de la Fronlera. Cadiz. Tl: 
(956)32 12 34, 


Intei'cambiQ programas para e! Spec¬ 
trum Plus con usuarios do toda Espana, 
mandar lists a: Agustin Rodriguez 
ObeL Huelva, 62. Trigueros. Huelva. 


Vendo o cambio por cassette o cual- 
quier perifenco (menos joystick) todas 
las revistas INPUT SINCLAIR a pared- 
das haste la fecha. En caso de vender- 
Eas, por 5.000 ptas. Tambien cambio 
programas de juegos y utilidad.es. Juan 
Gabriel; Villen a. C/ San Isidro, 27. Padul. 
Granada. Tl: (958)79 02 64. S61o tar- 
des. 


Vendo Kisoft Deupac ensamblador-de- 
senssmblador Gens-Mons, original y 
con instrucciones en Castellano. Llamar 
a Jose Antonio. Lieida. Tl: (973) 
76 05 48. 


Compro Interface para Spectrum, a si 
coma joystick ambos en buen estado y 
precio asequible, Tambien quisaera 
contacfar ton usuariosdel Spectrum de 
a I red adores de Navahermosa. L. Este¬ 
ban Manzanares. C:{ Prado, 21. 45150 
Navahermosa. Toledo. 


Vendo Spectrum Plus (del aho 85} con 
fuente de alimentation, cables, manual 
de instrucciones lespahol), cinta de de¬ 
mo strati on (Goldstar en ingles}, 3 jue¬ 
gos: The Drive In, Bubble Buster y el 
Underwurtde, con todas las instruccio¬ 
nes para liegsr al final sin problemas 
(espaholk Por solo 2Q.QOO pts. Miguel 
Garcia. Tl: (9lj 719 24 46, A partir de las 
15 h. 


Vendo simulador de Spectrum y Si* 
mon r s Basic (en tints) para CBM-64 con 
manuals intiuldos. Solo 5.D00 pts, Pe¬ 


dro J. Gomez P4rez. Avd, de la Raza, 31. 
3, a A. 2100 2 Huelva. Tl: (955} 34 20 31, 


Verdo Spectrum 48K, en buen estado 
(con cables, transformador, etc.) cas¬ 
sette marca COMPUTGNE, interface 
Kempston y un joysticks cinta de de- 
mosEracibn, programas de juegos, uti- 
lidades, aplicaeiones, etc. Todo por 
35.000 pts. A.L, Barros, G- Rubin, 7, 
Pontevedra 36001. 


Cambio juegos de Spectrum; bGlicos, 
de d e portes y de a ve n tu ras por alg u nos 
de los siguientes: Terra Crcsta, Jail 
Break, infiltrator o por cargadnr univer¬ 
sal de cadigo maquina C/ML (Se estu- 
diar^n ofertas). L. Leonardo Lars Go¬ 
me*. C/ Rosales Porton, 10.1. e D. Ceuta. 


Vendo ZX Spectrum Plus seminuevo 
con todos sus accesorios; cables, trans- 
formedor y edemas interface Kepston, 
Todos los manuals del ordenador y 
rlos libros de informatica aplicada. 
Cinta guia de funcronamiento y tres cin¬ 
tas de juegos. Todo por 26,000 pts. 
Adrian Sanchez Gomez. C/ Eustasio 
Am tibia, 4. 3. 13 B. San Sebastian 20011. 
Guipuzcoa. Tl: (943) 46 63 70, 


NO 

OUVIDEB 

telefono 

SiEHPRE QUE 
NOS EBCRIBA5 
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. A-'cenvj-ar 

Fifilflitltg. 

■ 1 ®f4s ^wtegvtf 


interface 7,f pi (Musical Instrument P-grai taoertece). Salica Sere PS 232 
bii n&dohal Doi bqfiedores pars joystick's Cdnector $$,?.o 
cacnpasitte con todrc iDsmjdelds SpeciruT^ anietiores Edi£t?r«Se paniaife 
y dos versions BASIC flfl ROM 43 K BASIC, wmpal ye coc Spectro m 16 K, 
43 K y ZX - T28 K BASIC. compatitfe con ZX Specuum 126. 


MtCfOprpcwactDrZBOA 12ft K RAW 32 K BOM TMTartKteSItecI® 
32 cokimnas x 24 fifes de tento. Gratifies cfe alia resChicsAn 
1256 ¥- ' S3 pixels:- fccctores ran dos iwetesde bolts eada uns 
Calculation en panjs fe 3 canals tie anise prog'H-rabiSiE 
irctependioniH Cassette iroopouda. Saida TV y monitor RGB 


C. Aiawca, 22 . 2 M 4 S Madrid. TW. 459 30 Of. Telex 476601 N&C E Fa« A 5 ? 21 32. DcIc&Kion enCaUluna: 01. Taraagwia, 110 . Tel 325 EG' 53 . OH 15 Barcelona 














































NON 


GAME OVER 


STIN 


SPECTRUM 

AMSTKAD 


SPECTRUM - MSX 
AMSTRAD #CBI#64 


★ ★★★★★★★★★★★★*★ ★★★★★★★★★★★★ 
875 PTS. CADA UNO, NUEVO PRECIO DINAMIC 
***★★★★★ + ***★★★****★*★***★*■■ 


DINAMIC SOFTWARE. Plata de E^pafta. IS, 
Torre de Madrid. 29-Ij'2$ti&$adrid. 
Pedldos contra \dc fan&thicrms, 

de 10 a 2y de4a$horns): Teizftm$$&4878S7. 
'J’kpdaz.i Di$tribtiidores: Teteiono (91)4473410. 


















































